Fix a small bug in compiler_interrupt_common: state was not being

restored when the interrupt was dismissed.

diff --git a/v7/src/microcode/cmpint.c b/v7/src/microcode/cmpint.c
index 0084b774045ae3d298def575b5afacf75e418fe3..d19604f0bcc7fd1968c42a076e450061494282e2 100644 (file)
--- a/v7/src/microcode/cmpint.c
+++ b/v7/src/microcode/cmpint.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/cmpint.c,v 1.14 1989/11/07 06:37:27 jinx Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/cmpint.c,v 1.15 1989/11/20 23:13:16 jinx Exp $
  *
  * This file corresponds to
  * $COMPILER-Header: compiler.c,v 9.37 89/10/25 14:55:45 GMT jinx Exp $
@@ -1377,6 +1377,8 @@ compiler_interrupt_common (entry_point, state)
   TEST_GC_NEEDED();
   if ((PENDING_INTERRUPTS()) == 0)
   {
+    Store_Env (state);
+    Val = state;
     RETURN_TO_SCHEME (entry_point + ENTRY_SKIPPED_CHECK_OFFSET);
   }
   else

diff --git a/v8/src/microcode/cmpint.c b/v8/src/microcode/cmpint.c
index 6fe7dd09699ab824d0c4c37d0e42ff1137aa02fa..b8a4fdba9e204e975d331e1bd1ab995b90e406ee 100644 (file)
--- a/v8/src/microcode/cmpint.c
+++ b/v8/src/microcode/cmpint.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/cmpint.c,v 1.14 1989/11/07 06:37:27 jinx Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/cmpint.c,v 1.15 1989/11/20 23:13:16 jinx Exp $
  *
  * This file corresponds to
  * $COMPILER-Header: compiler.c,v 9.37 89/10/25 14:55:45 GMT jinx Exp $
@@ -1377,6 +1377,8 @@ compiler_interrupt_common (entry_point, state)
   TEST_GC_NEEDED();
   if ((PENDING_INTERRUPTS()) == 0)
   {
+    Store_Env (state);
+    Val = state;
     RETURN_TO_SCHEME (entry_point + ENTRY_SKIPPED_CHECK_OFFSET);
   }
   else