From f3c6a0d5651b6531df8500cbab026761ff3e9a00 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Mon, 6 May 1991 02:35:12 +0000 Subject: [PATCH] Eliminate unused bound variable. --- v7/src/runtime/uenvir.scm | 29 ++++++++++++++--------------- v8/src/runtime/uenvir.scm | 29 ++++++++++++++--------------- 2 files changed, 28 insertions(+), 30 deletions(-) diff --git a/v7/src/runtime/uenvir.scm b/v7/src/runtime/uenvir.scm index 638175adc..49bd12e41 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.21 1991/05/04 20:00:11 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/uenvir.scm,v 14.22 1991/05/06 02:35:12 cph Exp $ Copyright (c) 1988-91 Massachusetts Institute of Technology @@ -471,22 +471,21 @@ MIT in each case. |# static-link)) (define (stack-ccenv/normal-closure environment) - (let ((block (stack-ccenv/block environment))) - (let ((closure - (find-stack-element environment - dbg-block/normal-closure-index - "closure"))) - (if (not (compiled-closure? closure)) - (error "Frame missing closure" closure environment)) + (let ((closure + (find-stack-element environment + dbg-block/normal-closure-index + "closure"))) + (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)) + ;; 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 (stack-ccenv/block environment)))) + (error "Wrong closure in frame" closure environment)) |# - closure))) + closure)) (define (find-stack-element environment procedure name) (let ((frame (stack-ccenv/frame environment))) diff --git a/v8/src/runtime/uenvir.scm b/v8/src/runtime/uenvir.scm index 72616bf67..411b5173b 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.21 1991/05/04 20:00:11 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/uenvir.scm,v 14.22 1991/05/06 02:35:12 cph Exp $ Copyright (c) 1988-91 Massachusetts Institute of Technology @@ -471,22 +471,21 @@ MIT in each case. |# static-link)) (define (stack-ccenv/normal-closure environment) - (let ((block (stack-ccenv/block environment))) - (let ((closure - (find-stack-element environment - dbg-block/normal-closure-index - "closure"))) - (if (not (compiled-closure? closure)) - (error "Frame missing closure" closure environment)) + (let ((closure + (find-stack-element environment + dbg-block/normal-closure-index + "closure"))) + (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)) + ;; 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 (stack-ccenv/block environment)))) + (error "Wrong closure in frame" closure environment)) |# - closure))) + closure)) (define (find-stack-element environment procedure name) (let ((frame (stack-ccenv/frame environment))) -- 2.25.1