Fix illegal `#if'.

diff --git a/v7/src/microcode/interp.c b/v7/src/microcode/interp.c
index 03d1bdfd8ee7effd61700ba0c5a9e29f17492c3a..557b64e06b40a9ee8c837ec39be134b23939a22a 100644 (file)
--- 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:
 \f
 /* 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 dc481dd7d8b146fe8a4c8e621116ef6f737eab6d..c6e97d62c788fd1419db395d3d39959209143799 100644 (file)
--- 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
 \f
 /* 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 c00fbc8e7217ac875b2d0da2fe368d2846dd59ab..c4e9487a59a5414028d09ef4ef2b73f80eb2c502 100644 (file)
--- 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 dd5d9201da20562f0f87700a1b37083d06305fd8..d3766bf7861b5b9b746c79e21db303f3d2fc18ff 100644 (file)
--- 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:
 \f
 /* 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 a2d7644ce0282eb98939295b3b0f0d34915ae13f..09086d992e812ceb87f6c272507599f160998671 100644 (file)
--- 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
 \f
 /* 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 698d6d2b57a2fa4dd7e25e1adeca25d3018bbe59..69bc6f162a82e2947e1368730b8a96365538155d 100644 (file)
--- 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 */