Don't treat `restore-value' frame as a subproblem.

diff --git a/v7/src/runtime/conpar.scm b/v7/src/runtime/conpar.scm
index 0d0b36d5c149c4de02a2693a089505abcb483788..a2d67b9684aa6cd3b76e6ac27dd033bf3988a3d6 100644 (file)
--- a/v7/src/runtime/conpar.scm
+++ b/v7/src/runtime/conpar.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/conpar.scm,v 14.12 1990/01/29 22:34:18 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/conpar.scm,v 14.13 1990/04/12 22:54:21 cph Exp $
 
 Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology
 
@@ -518,6 +518,7 @@ MIT in each case. |#
     (standard-frame 'JOIN-STACKLETS 2)
     (standard-frame 'POP-RETURN-ERROR 2)
     (standard-frame 'REENTER-COMPILED-CODE 2)
+    (standard-frame 'RESTORE-VALUE 2)
     (standard-frame 'COMPILER-INTERRUPT-RESTART 3)
     (standard-frame 'COMPILER-LINK-CACHES-RESTART 8)
 \f
@@ -526,7 +527,6 @@ MIT in each case. |#
     (standard-subproblem 'PRIMITIVE-COMBINATION-1-APPLY 2)
     (standard-subproblem 'FORCE-SNAP-THUNK 2)
     (standard-subproblem 'GC-CHECK 2)
-    (standard-subproblem 'RESTORE-VALUE 2)
     (standard-subproblem 'ASSIGNMENT-CONTINUE 3)
     (standard-subproblem 'DEFINITION-CONTINUE 3)
     (standard-subproblem 'SEQUENCE-2-SECOND 3)

diff --git a/v8/src/runtime/conpar.scm b/v8/src/runtime/conpar.scm
index 8dde62eff7e877ecf333be2223c9328f510681c5..05c5980b86f5fdc6ae8542221293cfcb598b9df2 100644 (file)
--- a/v8/src/runtime/conpar.scm
+++ b/v8/src/runtime/conpar.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/conpar.scm,v 14.12 1990/01/29 22:34:18 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/conpar.scm,v 14.13 1990/04/12 22:54:21 cph Exp $
 
 Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology
 
@@ -518,6 +518,7 @@ MIT in each case. |#
     (standard-frame 'JOIN-STACKLETS 2)
     (standard-frame 'POP-RETURN-ERROR 2)
     (standard-frame 'REENTER-COMPILED-CODE 2)
+    (standard-frame 'RESTORE-VALUE 2)
     (standard-frame 'COMPILER-INTERRUPT-RESTART 3)
     (standard-frame 'COMPILER-LINK-CACHES-RESTART 8)
 \f
@@ -526,7 +527,6 @@ MIT in each case. |#
     (standard-subproblem 'PRIMITIVE-COMBINATION-1-APPLY 2)
     (standard-subproblem 'FORCE-SNAP-THUNK 2)
     (standard-subproblem 'GC-CHECK 2)
-    (standard-subproblem 'RESTORE-VALUE 2)
     (standard-subproblem 'ASSIGNMENT-CONTINUE 3)
     (standard-subproblem 'DEFINITION-CONTINUE 3)
     (standard-subproblem 'SEQUENCE-2-SECOND 3)