From: Jason Wilson <edu/mit/csail/zurich/jawilson>
Date: Sat, 13 Mar 1993 05:39:16 +0000 (+0000)
Subject: Fix magic constant in load/purification-root.
X-Git-Tag: 20090517-FFI~8419
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e89b64ce2004bbc737db0edcd9163dad95a434a6;p=mit-scheme.git

Fix magic constant in load/purification-root.
---

diff --git a/v7/src/runtime/load.scm b/v7/src/runtime/load.scm
index e125c4c33..076125965 100644
--- a/v7/src/runtime/load.scm
+++ b/v7/src/runtime/load.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: load.scm,v 14.41 1993/03/08 07:08:01 gjr Exp $
+$Id: load.scm,v 14.42 1993/03/13 05:39:16 jawilson Exp $
 
 Copyright (c) 1988-1993 Massachusetts Institute of Technology
 
@@ -250,7 +250,7 @@ MIT in each case. |#
       (and (object-type? (ucode-type compiled-entry) object)
 	   (let* ((block ((ucode-primitive compiled-code-address->block 1)
 			  object))
-		  (index (- (system-vector-length block) 2)))
+		  (index (- (system-vector-length block) 3)))
 	     (and (not (negative? index))
 		  (let ((frob (system-vector-ref block index)))
 		    (and (pair? frob)
diff --git a/v8/src/runtime/load.scm b/v8/src/runtime/load.scm
index e125c4c33..076125965 100644
--- a/v8/src/runtime/load.scm
+++ b/v8/src/runtime/load.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: load.scm,v 14.41 1993/03/08 07:08:01 gjr Exp $
+$Id: load.scm,v 14.42 1993/03/13 05:39:16 jawilson Exp $
 
 Copyright (c) 1988-1993 Massachusetts Institute of Technology
 
@@ -250,7 +250,7 @@ MIT in each case. |#
       (and (object-type? (ucode-type compiled-entry) object)
 	   (let* ((block ((ucode-primitive compiled-code-address->block 1)
 			  object))
-		  (index (- (system-vector-length block) 2)))
+		  (index (- (system-vector-length block) 3)))
 	     (and (not (negative? index))
 		  (let ((frob (system-vector-ref block index)))
 		    (and (pair? frob)