From: Henry M. Wu <edu/mit/csail/zurich/mhwu>
Date: Tue, 26 May 1992 21:31:03 +0000 (+0000)
Subject: Fix unbound variable problem.
X-Git-Tag: 20090517-FFI~9352
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=4028915683bdeab6a1195969073f4b61afcb632b;p=mit-scheme.git

Fix unbound variable problem.
---

diff --git a/v7/src/runtime/infutl.scm b/v7/src/runtime/infutl.scm
index 0961bcd8e..8dec41833 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.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)))))
 
 ;;; UNCOMPRESS: A simple extractor for compressed binary info files.
 
diff --git a/v8/src/runtime/infutl.scm b/v8/src/runtime/infutl.scm
index eb0cc54a0..e774e14a5 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.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)))))
 
 ;;; UNCOMPRESS: A simple extractor for compressed binary info files.