Fix typo.

diff --git a/v7/src/runtime/infutl.scm b/v7/src/runtime/infutl.scm
index 596ac8387f9c55ee53ca2b95bd133c62c9125c82..0961bcd8e2708136c947715a63217388be5d53e4 100644 (file)
--- a/v7/src/runtime/infutl.scm
+++ b/v7/src/runtime/infutl.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/infutl.scm,v 1.30 1992/05/26 20:06:18 mhwu Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/infutl.scm,v 1.31 1992/05/26 20:32:35 mhwu Exp $
 
 Copyright (c) 1988-91 Massachusetts Institute of Technology
 
@@ -424,7 +424,7 @@ MIT in each case. |#
                       (vector-set! bsm pos labels)
                       (set-dbg-info/labels/desc!
                        dbg-info
-                       (and bsmnname (cons bsmname pos)))
+                       (and bsmname (cons bsmname pos)))
                       (loop (fix:1+ pos))))))))
          (else 
           (error "Unknown inf file format" infpath)))))

diff --git a/v8/src/runtime/infutl.scm b/v8/src/runtime/infutl.scm
index 8187effa8056948e9df18ce47074d253477f2283..eb0cc54a0b698693cbcd0247044e4ce7a60771b8 100644 (file)
--- a/v8/src/runtime/infutl.scm
+++ b/v8/src/runtime/infutl.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/infutl.scm,v 1.30 1992/05/26 20:06:18 mhwu Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/infutl.scm,v 1.31 1992/05/26 20:32:35 mhwu Exp $
 
 Copyright (c) 1988-91 Massachusetts Institute of Technology
 
@@ -424,7 +424,7 @@ MIT in each case. |#
                       (vector-set! bsm pos labels)
                       (set-dbg-info/labels/desc!
                        dbg-info
-                       (and bsmnname (cons bsmname pos)))
+                       (and bsmname (cons bsmname pos)))
                       (loop (fix:1+ pos))))))))
          (else 
           (error "Unknown inf file format" infpath)))))