From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 27 Nov 1990 19:13:48 +0000 (+0000)
Subject: Fix illegal `#if'.
X-Git-Tag: 20090517-FFI~11020
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=fdbd6f7c0b5840bfd6ca540ba1f64c10eee637d9;p=mit-scheme.git

Fix illegal `#if'.
---

diff --git a/v7/src/microcode/interp.c b/v7/src/microcode/interp.c
index 03d1bdfd8..557b64e06 100644
--- a/v7/src/microcode/interp.c
+++ b/v7/src/microcode/interp.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/interp.c,v 9.59 1990/11/21 07:04:25 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/interp.c,v 9.60 1990/11/27 19:13:48 cph Rel $
 
 Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology
 
@@ -899,7 +899,7 @@ lookup_end_restart:
 	  break;
       }
 
-#else No_In_Line_Lookup
+#else /* No_In_Line_Lookup */
 
       Set_Time_Zone(Zone_Lookup);
       temp = Lex_Ref(Fetch_Env(), Fetch_Expression());
@@ -907,7 +907,7 @@ lookup_end_restart:
       if (temp == PRIM_DONE)
 	goto Pop_Return;
 
-#endif No_In_Line_Lookup
+#endif /* No_In_Line_Lookup */
 
       /* Back out of the evaluation. */
 
@@ -1260,7 +1260,7 @@ external_assignment_return:
 
 /* Interpret(), continued */
 
-#else No_In_Line_Lookup
+#else /* No_In_Line_Lookup */
 
       value = Val;
       Set_Time_Zone(Zone_Lookup);
@@ -1276,7 +1276,7 @@ external_assignment_return:
 	break;
       }
 
-#endif No_In_Line_Lookup
+#endif /* No_In_Line_Lookup */
 
       Set_Time_Zone(Zone_Working);
       Save_Env();
diff --git a/v7/src/microcode/lookup.c b/v7/src/microcode/lookup.c
index dc481dd7d..c6e97d62c 100644
--- a/v7/src/microcode/lookup.c
+++ b/v7/src/microcode/lookup.c
@@ -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/lookup.c,v 9.44 1990/09/17 19:54:34 jinx Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/lookup.c,v 9.45 1990/11/27 19:13:10 cph Rel $
  *
  * This file contains symbol lookup and modification routines.  See
  * Hal Abelson for a paper describing and justifying the algorithm.
@@ -2081,7 +2081,7 @@ SCHEME_OBJECT *shadowed_value_cell = ((SCHEME_OBJECT *) NULL);
 
 #ifndef SPACE_PER_LINK		/* So it can be overriden from config.h */
 #define SPACE_PER_LINK		10
-#endif SPACE_PER_LINK
+#endif
 
 /* The spaces are 0 because the pairs are reused!  If that ever changes,
    they should all become SPACE_PER_ENTRY + curent value.
diff --git a/v7/src/microcode/object.h b/v7/src/microcode/object.h
index c00fbc8e7..c4e9487a5 100644
--- a/v7/src/microcode/object.h
+++ b/v7/src/microcode/object.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/object.h,v 9.35 1990/09/08 00:10:33 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/object.h,v 9.36 1990/11/27 19:13:28 cph Rel $
 
 Copyright (c) 1987, 1988, 1989 Massachusetts Institute of Technology
 
@@ -495,11 +495,11 @@ if ((ADDRESS_CONSTANT_P (OBJECT_ADDRESS (Old_Pointer))) &&		\
     *Where++ = (MAKE_OBJECT (TC_MANIFEST_NM_VECTOR, 0));		\
 }
 
-#else not FLOATING_ALIGNMENT
+#else /* not FLOATING_ALIGNMENT */
 
 #define HEAP_BUFFER_SPACE		 (TRAP_MAX_IMMEDIATE + 1)
 
 #define INITIAL_ALIGN_FLOAT(Where)
 #define ALIGN_FLOAT(Where)
 
-#endif FLOATING_ALIGNMENT
+#endif /* not FLOATING_ALIGNMENT */
diff --git a/v8/src/microcode/interp.c b/v8/src/microcode/interp.c
index dd5d9201d..d3766bf78 100644
--- a/v8/src/microcode/interp.c
+++ b/v8/src/microcode/interp.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/interp.c,v 9.59 1990/11/21 07:04:25 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/interp.c,v 9.60 1990/11/27 19:13:48 cph Rel $
 
 Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology
 
@@ -899,7 +899,7 @@ lookup_end_restart:
 	  break;
       }
 
-#else No_In_Line_Lookup
+#else /* No_In_Line_Lookup */
 
       Set_Time_Zone(Zone_Lookup);
       temp = Lex_Ref(Fetch_Env(), Fetch_Expression());
@@ -907,7 +907,7 @@ lookup_end_restart:
       if (temp == PRIM_DONE)
 	goto Pop_Return;
 
-#endif No_In_Line_Lookup
+#endif /* No_In_Line_Lookup */
 
       /* Back out of the evaluation. */
 
@@ -1260,7 +1260,7 @@ external_assignment_return:
 
 /* Interpret(), continued */
 
-#else No_In_Line_Lookup
+#else /* No_In_Line_Lookup */
 
       value = Val;
       Set_Time_Zone(Zone_Lookup);
@@ -1276,7 +1276,7 @@ external_assignment_return:
 	break;
       }
 
-#endif No_In_Line_Lookup
+#endif /* No_In_Line_Lookup */
 
       Set_Time_Zone(Zone_Working);
       Save_Env();
diff --git a/v8/src/microcode/lookup.c b/v8/src/microcode/lookup.c
index a2d7644ce..09086d992 100644
--- a/v8/src/microcode/lookup.c
+++ b/v8/src/microcode/lookup.c
@@ -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/v8/src/microcode/lookup.c,v 9.44 1990/09/17 19:54:34 jinx Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/lookup.c,v 9.45 1990/11/27 19:13:10 cph Rel $
  *
  * This file contains symbol lookup and modification routines.  See
  * Hal Abelson for a paper describing and justifying the algorithm.
@@ -2081,7 +2081,7 @@ SCHEME_OBJECT *shadowed_value_cell = ((SCHEME_OBJECT *) NULL);
 
 #ifndef SPACE_PER_LINK		/* So it can be overriden from config.h */
 #define SPACE_PER_LINK		10
-#endif SPACE_PER_LINK
+#endif
 
 /* The spaces are 0 because the pairs are reused!  If that ever changes,
    they should all become SPACE_PER_ENTRY + curent value.
diff --git a/v8/src/microcode/object.h b/v8/src/microcode/object.h
index 698d6d2b5..69bc6f162 100644
--- a/v8/src/microcode/object.h
+++ b/v8/src/microcode/object.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/object.h,v 9.35 1990/09/08 00:10:33 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/object.h,v 9.36 1990/11/27 19:13:28 cph Rel $
 
 Copyright (c) 1987, 1988, 1989 Massachusetts Institute of Technology
 
@@ -495,11 +495,11 @@ if ((ADDRESS_CONSTANT_P (OBJECT_ADDRESS (Old_Pointer))) &&		\
     *Where++ = (MAKE_OBJECT (TC_MANIFEST_NM_VECTOR, 0));		\
 }
 
-#else not FLOATING_ALIGNMENT
+#else /* not FLOATING_ALIGNMENT */
 
 #define HEAP_BUFFER_SPACE		 (TRAP_MAX_IMMEDIATE + 1)
 
 #define INITIAL_ALIGN_FLOAT(Where)
 #define ALIGN_FLOAT(Where)
 
-#endif FLOATING_ALIGNMENT
+#endif /* not FLOATING_ALIGNMENT */