From e89b64ce2004bbc737db0edcd9163dad95a434a6 Mon Sep 17 00:00:00 2001 From: Jason Wilson Date: Sat, 13 Mar 1993 05:39:16 +0000 Subject: [PATCH] Fix magic constant in load/purification-root. --- v7/src/runtime/load.scm | 4 ++-- v8/src/runtime/load.scm | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) 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) -- 2.25.1