`environment-parent' wasn't skipping over intermediate static-links

correctly.

diff --git a/v7/src/runtime/uenvir.scm b/v7/src/runtime/uenvir.scm
index d768486ca287327dc8979521573ad2b05e6df2b9..47dfcab0fa6450e638c7bb0b4af36d60b9d78565 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.13 1989/10/03 22:54:29 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/uenvir.scm,v 14.14 1989/10/10 11:37:35 cph Exp $
 
 Copyright (c) 1988, 1989 Massachusetts Institute of Technology
 
@@ -345,7 +345,10 @@ MIT in each case. |#
                   ((eq? stack-link parent)
                    (make-stack-ccenv parent frame index))
                   (else
-                   (loop stack-link frame index))))))  ((CLOSURE)
+                   (loop stack-link
+                         frame
+                         (+ (vector-length (dbg-block/layout stack-link))                           index)))))))
+       ((CLOSURE)
         (make-closure-ccenv (dbg-block/original-parent block)
                             parent
                             (stack-ccenv/normal-closure environment)))

diff --git a/v8/src/runtime/uenvir.scm b/v8/src/runtime/uenvir.scm
index edebd525be16f9388e6bf7871a1febb70719e03b..6d9b9b4a5b86a63047eea345eef07aaaa9bee394 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.13 1989/10/03 22:54:29 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/uenvir.scm,v 14.14 1989/10/10 11:37:35 cph Exp $
 
 Copyright (c) 1988, 1989 Massachusetts Institute of Technology
 
@@ -345,7 +345,10 @@ MIT in each case. |#
                   ((eq? stack-link parent)
                    (make-stack-ccenv parent frame index))
                   (else
-                   (loop stack-link frame index))))))  ((CLOSURE)
+                   (loop stack-link
+                         frame
+                         (+ (vector-length (dbg-block/layout stack-link))                           index)))))))
+       ((CLOSURE)
         (make-closure-ccenv (dbg-block/original-parent block)
                             parent
                             (stack-ccenv/normal-closure environment)))