From: Henry M. Wu <edu/mit/csail/zurich/mhwu>
Date: Tue, 26 May 1992 18:43:40 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Tag: 20090517-FFI~9362
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=075394d5c69221e1d16bd9a912f1dc7af35f2286;p=mit-scheme.git

*** empty log message ***
---

diff --git a/v7/src/runtime/infutl.scm b/v7/src/runtime/infutl.scm
index 092d34b22..4b9cae1a9 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.27 1992/05/26 18:41:31 mhwu Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/infutl.scm,v 1.28 1992/05/26 18:43:40 mhwu Exp $
 
 Copyright (c) 1988-91 Massachusetts Institute of Technology
 
@@ -525,6 +525,8 @@ MIT in each case. |#
       (call-with-current-continuation
         (lambda (if-fail)
 	  (uncompress-internal compressed-filename uncompressed-filename
-	     (lambda (message . irritants) (if-fail false)))
+	     (lambda (message . irritants)
+	       message irritants
+	       (if-fail false)))
 	  (fasload-loader uncompressed-filename))))))
   
diff --git a/v8/src/runtime/infutl.scm b/v8/src/runtime/infutl.scm
index 8bb555b22..6119d1741 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.27 1992/05/26 18:41:31 mhwu Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/infutl.scm,v 1.28 1992/05/26 18:43:40 mhwu Exp $
 
 Copyright (c) 1988-91 Massachusetts Institute of Technology
 
@@ -525,6 +525,8 @@ MIT in each case. |#
       (call-with-current-continuation
         (lambda (if-fail)
 	  (uncompress-internal compressed-filename uncompressed-filename
-	     (lambda (message . irritants) (if-fail false)))
+	     (lambda (message . irritants)
+	       message irritants
+	       (if-fail false)))
 	  (fasload-loader uncompressed-filename))))))