From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 10 Oct 1989 11:37:35 +0000 (+0000)
Subject: `environment-parent' wasn't skipping over intermediate static-links
X-Git-Tag: 20090517-FFI~11758
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9f9b06ec33e7e973c8583e679c968f11d717b58d;p=mit-scheme.git

`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 d768486ca..47dfcab0f 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.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 edebd525b..6d9b9b4a5 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.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)))