From 27a665f7a4d0cfeac398b8f1c216768475d89d02 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 12 Apr 1990 22:54:21 +0000 Subject: [PATCH] Don't treat `restore-value' frame as a subproblem. --- v7/src/runtime/conpar.scm | 4 ++-- v8/src/runtime/conpar.scm | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/v7/src/runtime/conpar.scm b/v7/src/runtime/conpar.scm index 0d0b36d5c..a2d67b968 100644 --- 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) @@ -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 8dde62eff..05c5980b8 100644 --- 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) @@ -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) -- 2.25.1