From: Taylor R Campbell <campbell@mumble.net>
Date: Wed, 12 Dec 2018 16:25:59 +0000 (+0000)
Subject: Missed some .bin spots.
X-Git-Tag: mit-scheme-pucked-10.1.9~3^2~35^2~29
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=dc1aa0574448fb4c361c41a5861b4905725b2862;p=mit-scheme.git

Missed some .bin spots.
---

diff --git a/src/compiler/machines/i386/compiler.sf b/src/compiler/machines/i386/compiler.sf
index 8d73e4d0f..9c26aafe0 100644
--- a/src/compiler/machines/i386/compiler.sf
+++ b/src/compiler/machines/i386/compiler.sf
@@ -44,7 +44,10 @@ USA.
 	     (fluid-let ((sf/default-syntax-table (->environment package)))
 	       (sf-conditionally files))
 	     (for-each (lambda (file)
-			 (load (string-append file ".bin") package))
+			 (receive (scm bin spec)
+				  (sf/pathname-defaulting file #f #f)
+			   scm spec
+			   (load bin package)))
 		       files))))
       (load-option 'hash-table)
       (fresh-line)
diff --git a/src/compiler/machines/x86-64/compiler.sf b/src/compiler/machines/x86-64/compiler.sf
index 9cadbd49f..7086110ca 100644
--- a/src/compiler/machines/x86-64/compiler.sf
+++ b/src/compiler/machines/x86-64/compiler.sf
@@ -44,7 +44,10 @@ USA.
 	     (fluid-let ((sf/default-syntax-table (->environment package)))
 	       (sf-conditionally files))
 	     (for-each (lambda (file)
-			 (load (string-append file ".bin") package))
+			 (receive (scm bin spec)
+				  (sf/pathname-defaulting file #f #f)
+			   scm spec
+			   (load bin package)))
 		       files))))
       (load-option 'hash-table)
       (fresh-line)