From e2d6cf6fbc4611eb218b8d3f86f4476b65bf9ebc Mon Sep 17 00:00:00 2001 From: Stephen Adams Date: Fri, 4 Aug 1995 13:40:31 +0000 Subject: [PATCH] Fixed COMPILED-PROCEDURE/ENVIRONMENT -- it was expecting an `uncompressed' path and thus failing to recognize top-level IC environments. --- v8/src/runtime/uenvir.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/v8/src/runtime/uenvir.scm b/v8/src/runtime/uenvir.scm index 37fa36a97..66b62547d 100644 --- a/v8/src/runtime/uenvir.scm +++ b/v8/src/runtime/uenvir.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: uenvir.scm,v 14.36 1995/07/27 21:11:41 adams Exp $ +$Id: uenvir.scm,v 14.37 1995/08/04 13:40:31 adams Exp $ Copyright (c) 1988-1995 Massachusetts Institute of Technology @@ -424,8 +424,8 @@ MIT in each case. |# entry)) (let ((parent (dbg-block/parent invocation-block))) (cond ((and (eq? parent 'IC) - (equal? (dbg-block/parent-path-prefix invocation-block) - '((TOP-LEVEL-ENVIRONMENT)))) + (eq? (dbg-block/parent-path-prefix invocation-block) + 'TOP-LEVEL-ENVIRONMENT)) (guarantee-interpreter-environment (compiled-code-block/environment (compiled-code-address->block entry)))) -- 2.25.1