Eliminate unused bound variable.

diff --git a/v7/src/runtime/uenvir.scm b/v7/src/runtime/uenvir.scm
index 638175adc2613828439234bd7899cf8931962097..49bd12e415c7b4d31185e1aadee743242fcba537 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.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 72616bf67dd14b231d34aa0bda392b39f7438059..411b5173b21b249e4ca12bcda1a08681fc5aedc0 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.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)))