From: Henry M. Wu <edu/mit/csail/zurich/mhwu>
Date: Tue, 26 May 1992 20:32:35 +0000 (+0000)
Subject: Fix typo.
X-Git-Tag: 20090517-FFI~9354
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e39d8124cd8932395efead786e0fe5f51507e923;p=mit-scheme.git

Fix typo.
---

diff --git a/v7/src/runtime/infutl.scm b/v7/src/runtime/infutl.scm
index 596ac8387..0961bcd8e 100644
--- 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 8187effa8..eb0cc54a0 100644
--- 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)))))