Temporarily disable consistency check in `stack-ccenv/normal-closure',

because it fails for certain cases of multi-closures.

diff --git a/v7/src/runtime/uenvir.scm b/v7/src/runtime/uenvir.scm
index ac049898307de4cd6700900d8ed35fbf731ec576..b78d354af921645df0fc51de090fbd51b84a444d 100644 (file)
--- 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.17 1990/06/20 20:30:24 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/uenvir.scm,v 14.18 1990/08/07 20:11:06 cph Exp $
 
 Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology
 
@@ -455,9 +455,15 @@ MIT in each case. |#
                 index)))))
       (if (not (compiled-closure? closure))
          (error "frame missing closure" closure environment))
+#|
+      ;; Temporarily disable this consistency check until the compiler
+      ;; is modified to provide the correct information for
+      ;; multi-closed procedures.
       (if (not (eq? (compiled-entry/dbg-object closure)
                    (dbg-block/procedure block)))
-         (error "wrong closure in frame" closure environment))      closure)))
+         (error "wrong closure in frame" closure environment))
+|#
+      closure)))
 \f
 (define-structure (closure-ccenv
                   (named

diff --git a/v8/src/runtime/uenvir.scm b/v8/src/runtime/uenvir.scm
index 2574a618bf9fe8e8564f75e237728e8885608364..9717e4138203680b57f2fd81db2f53b14d8c52b9 100644 (file)
--- 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.17 1990/06/20 20:30:24 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/uenvir.scm,v 14.18 1990/08/07 20:11:06 cph Exp $
 
 Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology
 
@@ -455,9 +455,15 @@ MIT in each case. |#
                 index)))))
       (if (not (compiled-closure? closure))
          (error "frame missing closure" closure environment))
+#|
+      ;; Temporarily disable this consistency check until the compiler
+      ;; is modified to provide the correct information for
+      ;; multi-closed procedures.
       (if (not (eq? (compiled-entry/dbg-object closure)
                    (dbg-block/procedure block)))
-         (error "wrong closure in frame" closure environment))      closure)))
+         (error "wrong closure in frame" closure environment))
+|#
+      closure)))
 \f
 (define-structure (closure-ccenv
                   (named