Fix think-o in previous change.

diff --git a/v7/src/runtime/infutl.scm b/v7/src/runtime/infutl.scm
index a04bed8a84f6e8ea3f201a371646a17714171734..5b3038da57a1d00baa3ee21c3d7e3f11b3305d07 100644 (file)
--- a/v7/src/runtime/infutl.scm
+++ b/v7/src/runtime/infutl.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: infutl.scm,v 1.52 1993/11/21 01:05:57 gjr Exp $
+$Id: infutl.scm,v 1.53 1993/11/21 06:56:26 cph Exp $
 
 Copyright (c) 1988-93 Massachusetts Institute of Technology
 
@@ -232,7 +232,7 @@ MIT in each case. |#
        (process-subblocks
         (lambda (blocks start binf-filename)
           (let ((end (vector-length blocks)))
-            (let loop ((index 1))
+            (let loop ((index start))
               (if (< index end)
                   (begin
                     (set-car! (compiled-code-block/debugging-info

diff --git a/v8/src/runtime/infutl.scm b/v8/src/runtime/infutl.scm
index a04bed8a84f6e8ea3f201a371646a17714171734..5b3038da57a1d00baa3ee21c3d7e3f11b3305d07 100644 (file)
--- a/v8/src/runtime/infutl.scm
+++ b/v8/src/runtime/infutl.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: infutl.scm,v 1.52 1993/11/21 01:05:57 gjr Exp $
+$Id: infutl.scm,v 1.53 1993/11/21 06:56:26 cph Exp $
 
 Copyright (c) 1988-93 Massachusetts Institute of Technology
 
@@ -232,7 +232,7 @@ MIT in each case. |#
        (process-subblocks
         (lambda (blocks start binf-filename)
           (let ((end (vector-length blocks)))
-            (let loop ((index 1))
+            (let loop ((index start))
               (if (< index end)
                   (begin
                     (set-car! (compiled-code-block/debugging-info