Missed some .bin spots.

diff --git a/src/compiler/machines/i386/compiler.sf b/src/compiler/machines/i386/compiler.sf
index 8d73e4d0f82e7c8eedbe328a0c84e05b3ddfce1c..9c26aafe0fd89be0de85281ae7261077d4eb0a3d 100644 (file)
--- 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 9cadbd49f83fd832474e9ea6a352028f6d3443d9..7086110caec6c111bcad99afcdb00cbb9c2508eb 100644 (file)
--- 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)