Fix bug in Prepare_Apply_Interrupt noticed after last set of changes

(addition of RC_INTERNAL_APPLY_VAL).

diff --git a/v7/src/microcode/interp.c b/v7/src/microcode/interp.c
index ef3de0192b60224c8dc66d5bf176cf16f02e2d8d..7c601d0b2fda6f728d8c28eb22c0d402b757cced 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.54 1990/01/29 22:32:57 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/interp.c,v 9.55 1990/01/30 14:44:25 jinx Exp $
 
 Copyright (c) 1988, 1989 Massachusetts Institute of Technology
 
@@ -84,10 +84,13 @@ MIT in each case. */
 \f
 #define Prepare_Pop_Return_Interrupt(Return_Code, Contents_of_Val)     \
 {                                                                      \
+  SCHEME_OBJECT temp;                                                  \
+                                                                       \
+  temp = (Contents_of_Val);                                            \
   Store_Return(Return_Code);                                           \
   Save_Cont();                                                         \
   Store_Return(RC_RESTORE_VALUE);                                      \
-  Store_Expression(Contents_of_Val);                                   \
+  Store_Expression(temp);                                              \
   Save_Cont();                                                         \
 }
 

diff --git a/v8/src/microcode/interp.c b/v8/src/microcode/interp.c
index 23b373c3a690b0eefba32801704211bcc37a17b6..d4706847b53c31a4af413bbc0776ef12ec3bc95c 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.54 1990/01/29 22:32:57 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/interp.c,v 9.55 1990/01/30 14:44:25 jinx Exp $
 
 Copyright (c) 1988, 1989 Massachusetts Institute of Technology
 
@@ -84,10 +84,13 @@ MIT in each case. */
 \f
 #define Prepare_Pop_Return_Interrupt(Return_Code, Contents_of_Val)     \
 {                                                                      \
+  SCHEME_OBJECT temp;                                                  \
+                                                                       \
+  temp = (Contents_of_Val);                                            \
   Store_Return(Return_Code);                                           \
   Save_Cont();                                                         \
   Store_Return(RC_RESTORE_VALUE);                                      \
-  Store_Expression(Contents_of_Val);                                   \
+  Store_Expression(temp);                                              \
   Save_Cont();                                                         \
 }