From 145160dea536fefef6cf7cda4a506de0af207267 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Fri, 6 Mar 2015 14:04:26 -0700 Subject: [PATCH] smp: Squash into 65f63da. Quiet unused parameter warning. --- src/runtime/infutl.scm | 27 +++++++++++++-------------- 1 file changed, 13 insertions(+), 14 deletions(-) diff --git a/src/runtime/infutl.scm b/src/runtime/infutl.scm index 0fec72a14..36308360a 100644 --- a/src/runtime/infutl.scm +++ b/src/runtime/infutl.scm @@ -69,7 +69,7 @@ USA. (find-alternate-file-type pathname `(("inf" . ,fasload-loader) ("bif" . ,fasload-loader) - ("bci" . ,(compressed-loader "bif"))))))) + ("bci" . ,compressed-loader)))))) (define (find-alternate-file-type base-pathname alist) (let loop ((left alist) (time 0) (file #f) (receiver (lambda (x) x))) @@ -400,7 +400,7 @@ USA. (loop (cdr types)))))))))) (and pathname (if (equal? "bcs" (pathname-type pathname)) - ((compressed-loader "bsm") pathname) + (compressed-loader pathname) (fasload-loader pathname))))) ;;;; Splitting of info structures @@ -596,18 +596,17 @@ USA. (lambda (condition) condition (if-fail #f)) (lambda () (fasload filename #t)))))) -(define (compressed-loader uncompressed-type) - (lambda (compressed-file) - (call-with-temporary-file-pathname - (lambda (temporary-file) - (call-with-current-continuation - (lambda (k) - (uncompress-internal compressed-file - temporary-file - (lambda (message . irritants) - message irritants - (k #f))) - (fasload-loader temporary-file))))))) +(define (compressed-loader compressed-file) + (call-with-temporary-file-pathname + (lambda (temporary-file) + (call-with-current-continuation + (lambda (k) + (uncompress-internal compressed-file + temporary-file + (lambda (message . irritants) + message irritants + (k #f))) + (fasload-loader temporary-file)))))) (define (uncompress-internal ifile ofile if-fail) (call-with-binary-input-file (merge-pathnames ifile) -- 2.25.1