From bd6c83f098596e0dbf97e111e5a8f231f0d10c34 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Sun, 13 Mar 1988 15:52:28 +0000 Subject: [PATCH] Forgot to add macro continuation lines to Apply_Error. --- v7/src/microcode/interp.c | 14 +++++++------- v8/src/microcode/interp.c | 14 +++++++------- 2 files changed, 14 insertions(+), 14 deletions(-) diff --git a/v7/src/microcode/interp.c b/v7/src/microcode/interp.c index f4e4e7cef..f92f26f2b 100644 --- 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 d08a6b626..3a69a8b73 100644 --- 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 */ -- 2.25.1