Fix unbound variable problem.

diff --git a/v7/src/runtime/infutl.scm b/v7/src/runtime/infutl.scm
index 0961bcd8e2708136c947715a63217388be5d53e4..8dec418330a9a06e34ac934e870cda9cbcb10a53 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.31 1992/05/26 20:32:35 mhwu Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/infutl.scm,v 1.32 1992/05/26 21:31:03 mhwu Exp $
 
 Copyright (c) 1988-91 Massachusetts Institute of Technology
 
@@ -427,8 +427,7 @@ MIT in each case. |#
                        (and bsmname (cons bsmname pos)))
                       (loop (fix:1+ pos))))))))
          (else 
-          (error "Unknown inf file format" infpath)))))
-
+          (error "Unknown inf format" binf)))))
 \f
 ;;; UNCOMPRESS: A simple extractor for compressed binary info files.
 

diff --git a/v8/src/runtime/infutl.scm b/v8/src/runtime/infutl.scm
index eb0cc54a0b698693cbcd0247044e4ce7a60771b8..e774e14a5abf83ebb9999422fe61956d25d9e263 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.31 1992/05/26 20:32:35 mhwu Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/infutl.scm,v 1.32 1992/05/26 21:31:03 mhwu Exp $
 
 Copyright (c) 1988-91 Massachusetts Institute of Technology
 
@@ -427,8 +427,7 @@ MIT in each case. |#
                        (and bsmname (cons bsmname pos)))
                       (loop (fix:1+ pos))))))))
          (else 
-          (error "Unknown inf file format" infpath)))))
-
+          (error "Unknown inf format" binf)))))
 \f
 ;;; UNCOMPRESS: A simple extractor for compressed binary info files.