smp: Squash into 65f63da. Quiet unused parameter warning.

diff --git a/src/runtime/infutl.scm b/src/runtime/infutl.scm
index 0fec72a14c5c39026ace0d0d775783994a99f76d..36308360a0cec31a689f6d2933c10696911c7c57 100644 (file)
--- 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)))))
 \f
 ;;;; 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)