From dc1aa0574448fb4c361c41a5861b4905725b2862 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Wed, 12 Dec 2018 16:25:59 +0000 Subject: [PATCH] Missed some .bin spots. --- src/compiler/machines/i386/compiler.sf | 5 ++++- src/compiler/machines/x86-64/compiler.sf | 5 ++++- 2 files changed, 8 insertions(+), 2 deletions(-) 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) -- 2.25.1