From 075394d5c69221e1d16bd9a912f1dc7af35f2286 Mon Sep 17 00:00:00 2001 From: "Henry M. Wu" Date: Tue, 26 May 1992 18:43:40 +0000 Subject: [PATCH] *** empty log message *** --- v7/src/runtime/infutl.scm | 6 ++++-- v8/src/runtime/infutl.scm | 6 ++++-- 2 files changed, 8 insertions(+), 4 deletions(-) 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)))))) -- 2.25.1