From 05047f08cdb8d01d4b271300c2a5db50621b6c47 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sun, 21 Jul 1991 07:02:17 +0000 Subject: [PATCH] ENVIRONMENT-HAS-PARENT? must return one of three values: #F, #T, or 'SIMULATED. In the case of compiled closures, it was returning something else, causing the debugging tools to think that these procedures had no closing frame. --- v7/src/runtime/uenvir.scm | 4 ++-- v8/src/runtime/uenvir.scm | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/v7/src/runtime/uenvir.scm b/v7/src/runtime/uenvir.scm index dc7a12877..81b6a2d63 100644 --- a/v7/src/runtime/uenvir.scm +++ b/v7/src/runtime/uenvir.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/uenvir.scm,v 14.23 1991/05/10 22:24:18 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/uenvir.scm,v 14.24 1991/07/21 07:02:17 cph Exp $ Copyright (c) 1988-91 Massachusetts Institute of Technology @@ -575,7 +575,7 @@ MIT in each case. |# (let ((parent (dbg-block/parent stack-block))) (and parent (case (dbg-block/type parent) - ((CLOSURE) (dbg-block/original-parent stack-block)) + ((CLOSURE) (and (dbg-block/original-parent stack-block) true)) ((STACK IC) true) (else (error "Illegal parent block" parent)))))) 'SIMULATED)) diff --git a/v8/src/runtime/uenvir.scm b/v8/src/runtime/uenvir.scm index c7ac2d458..468e1d31d 100644 --- a/v8/src/runtime/uenvir.scm +++ b/v8/src/runtime/uenvir.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/uenvir.scm,v 14.23 1991/05/10 22:24:18 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/uenvir.scm,v 14.24 1991/07/21 07:02:17 cph Exp $ Copyright (c) 1988-91 Massachusetts Institute of Technology @@ -575,7 +575,7 @@ MIT in each case. |# (let ((parent (dbg-block/parent stack-block))) (and parent (case (dbg-block/type parent) - ((CLOSURE) (dbg-block/original-parent stack-block)) + ((CLOSURE) (and (dbg-block/original-parent stack-block) true)) ((STACK IC) true) (else (error "Illegal parent block" parent)))))) 'SIMULATED)) -- 2.25.1