From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Fri, 4 Aug 1995 13:40:31 +0000 (+0000)
Subject: Fixed COMPILED-PROCEDURE/ENVIRONMENT -- it was expecting an
X-Git-Tag: 20090517-FFI~6071
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e2d6cf6fbc4611eb218b8d3f86f4476b65bf9ebc;p=mit-scheme.git

Fixed COMPILED-PROCEDURE/ENVIRONMENT -- it was expecting an
`uncompressed' path and thus failing to recognize top-level IC
environments.
---

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))))