From 63ef83cf60afbcd7170bf0e81126086269a6bcde Mon Sep 17 00:00:00 2001 From: Stephen Adams Date: Fri, 8 Sep 1995 02:56:57 +0000 Subject: [PATCH] Fixed bug with top-level forms wit internal continuations. --- v8/src/compiler/midend/dbgstr.scm | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/v8/src/compiler/midend/dbgstr.scm b/v8/src/compiler/midend/dbgstr.scm index b2db10fed..77b01dba9 100644 --- a/v8/src/compiler/midend/dbgstr.scm +++ b/v8/src/compiler/midend/dbgstr.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: dbgstr.scm,v 1.18 1995/09/08 02:44:17 adams Exp $ +$Id: dbgstr.scm,v 1.19 1995/09/08 02:56:57 adams Exp $ Copyright (c) 1994-1995 Massachusetts Institute of Technology @@ -196,12 +196,14 @@ MIT in each case. |# (new-dbg-continuation/inner new-info))) (aggregate ;; This condition is true when a user level form has internal - ;; invisible continuations + ;; invisible continuations, either as a subproblem or reduction (if (or (not (new-dbg-continuation/outer new-info)) (eq? (new-dbg-continuation/outer new-info) (new-dbg-continuation/inner new-info))) - (new-dbg-expression/outer - (new-dbg-continuation/inner new-info)) + (or (new-dbg-expression/outer + (new-dbg-continuation/inner new-info)) + (new-dbg-expression/source-code + (new-dbg-continuation/inner new-info))) (new-dbg-expression/source-code (new-dbg-continuation/outer new-info))))) (and aggregate -- 2.25.1