From ff157f2cc335b19180a1961720cb52358cc3ed3a Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 7 Aug 1990 20:11:06 +0000 Subject: [PATCH] Temporarily disable consistency check in `stack-ccenv/normal-closure', because it fails for certain cases of multi-closures. --- v7/src/runtime/uenvir.scm | 10 ++++++++-- v8/src/runtime/uenvir.scm | 10 ++++++++-- 2 files changed, 16 insertions(+), 4 deletions(-) diff --git a/v7/src/runtime/uenvir.scm b/v7/src/runtime/uenvir.scm index ac0498983..b78d354af 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.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))) (define-structure (closure-ccenv (named diff --git a/v8/src/runtime/uenvir.scm b/v8/src/runtime/uenvir.scm index 2574a618b..9717e4138 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.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))) (define-structure (closure-ccenv (named -- 2.25.1