From 57b4211586a950bb93662adfae20324bf33cc573 Mon Sep 17 00:00:00 2001 From: "Henry M. Wu" Date: Tue, 26 May 1992 18:41:31 +0000 Subject: [PATCH] *** empty log message *** --- v7/src/runtime/infutl.scm | 4 ++-- v8/src/runtime/infutl.scm | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/v7/src/runtime/infutl.scm b/v7/src/runtime/infutl.scm index aa057d757..092d34b22 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.26 1992/05/26 17:31:58 mhwu Exp $ +$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 $ Copyright (c) 1988-91 Massachusetts Institute of Technology @@ -386,7 +386,7 @@ MIT in each case. |# (let ((pathname (merge-pathnames filename))) (find-alternate-file-type pathname `(("bsm" . ,fasload-loader) - ("bcs" . compressed-loader))))))) + ("bcs" . ,compressed-loader))))))) (define (process-bsym-filename name) (->namestring diff --git a/v8/src/runtime/infutl.scm b/v8/src/runtime/infutl.scm index c848e96c8..8bb555b22 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.26 1992/05/26 17:31:58 mhwu Exp $ +$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 $ Copyright (c) 1988-91 Massachusetts Institute of Technology @@ -386,7 +386,7 @@ MIT in each case. |# (let ((pathname (merge-pathnames filename))) (find-alternate-file-type pathname `(("bsm" . ,fasload-loader) - ("bcs" . compressed-loader))))))) + ("bcs" . ,compressed-loader))))))) (define (process-bsym-filename name) (->namestring -- 2.25.1