From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Thu, 18 Jun 1987 19:54:28 +0000 (+0000)
Subject: Add main_type for VMS.
X-Git-Tag: 20090517-FFI~13352
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c2646764acbe603a6bd8bf1f5df2560d56a5e403;p=mit-scheme.git

Add main_type for VMS.
---

diff --git a/v7/src/microcode/default.h b/v7/src/microcode/default.h
index 65f5b7c8a..c5d6f53be 100644
--- a/v7/src/microcode/default.h
+++ b/v7/src/microcode/default.h
@@ -30,7 +30,7 @@ Technology nor of any adaptation thereof in any advertising,
 promotional, or sales literature without prior written consent from
 MIT in each case. */
 
-/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/default.h,v 9.23 1987/06/18 19:18:57 jinx Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/default.h,v 9.24 1987/06/18 19:54:28 jinx Exp $
  *
  * This file contains default definitions for some hooks which 
  * various machines require.  These machines define these hooks
@@ -116,6 +116,10 @@ extern Pointer Swap_Temp;
 
 /* Used in BOOT.C */
 
+#ifndef main_type
+#define main_type void
+#endif
+
 #ifndef term_type
 #define term_type void
 #endif