From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Fri, 6 Mar 2015 21:04:26 +0000 (-0700)
Subject: smp: Squash into 65f63da.  Quiet unused parameter warning.
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=145160dea536fefef6cf7cda4a506de0af207267;p=mit-scheme.git

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

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)