Forgot to add macro continuation lines to Apply_Error.

diff --git a/v7/src/microcode/interp.c b/v7/src/microcode/interp.c
index f4e4e7cef7b38f621e7faaa1893e66a69a545160..f92f26f2ba27ca11d95b893238846baba956fbbd 100644 (file)
--- a/v7/src/microcode/interp.c
+++ b/v7/src/microcode/interp.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/interp.c,v 9.40 1988/03/12 16:06:40 jinx Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/interp.c,v 9.41 1988/03/13 15:52:28 jinx Exp $
  *
  * This file contains the heart of the Scheme Scode
  * interpreter
@@ -1313,12 +1313,12 @@ external_assignment_return:
   Save_Cont();                                                         \
 }
                           
-#define Apply_Error(N)
-{
-  Store_Return(RC_INTERNAL_APPLY);
-  Store_Expression(NIL);
-  Val = NIL;
-  Pop_Return_Error(N);
+#define Apply_Error(N)                                                 \
+{                                                                      \
+  Store_Return(RC_INTERNAL_APPLY);                                     \
+  Store_Expression(NIL);                                               \
+  Val = NIL;                                                           \
+  Pop_Return_Error(N);                                                 \
 }
 
 /* Interpret() continues on the next page */

diff --git a/v8/src/microcode/interp.c b/v8/src/microcode/interp.c
index d08a6b626604975b23f87dc7be35cfe0ea6a450e..3a69a8b73c7c96480406ec124ebf9a8243b0799a 100644 (file)
--- a/v8/src/microcode/interp.c
+++ b/v8/src/microcode/interp.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/interp.c,v 9.40 1988/03/12 16:06:40 jinx Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/interp.c,v 9.41 1988/03/13 15:52:28 jinx Exp $
  *
  * This file contains the heart of the Scheme Scode
  * interpreter
@@ -1313,12 +1313,12 @@ external_assignment_return:
   Save_Cont();                                                         \
 }
                           
-#define Apply_Error(N)
-{
-  Store_Return(RC_INTERNAL_APPLY);
-  Store_Expression(NIL);
-  Val = NIL;
-  Pop_Return_Error(N);
+#define Apply_Error(N)                                                 \
+{                                                                      \
+  Store_Return(RC_INTERNAL_APPLY);                                     \
+  Store_Expression(NIL);                                               \
+  Val = NIL;                                                           \
+  Pop_Return_Error(N);                                                 \
 }
 
 /* Interpret() continues on the next page */