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 37fa36a978493c4ca6d7a83630c0af06030697b4..66b62547dd1838703ad58eb16a6e84379c94d45d 100644 (file)
--- 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))))