From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 24 Aug 1988 06:53:01 +0000 (+0000)
Subject: Guarantee that the ".bin" version of each file is loaded.  Otherwise,
X-Git-Tag: 20090517-FFI~12589
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=012568338e75ab5c51be31abfb652c321611f2a8;p=mit-scheme.git

Guarantee that the ".bin" version of each file is loaded.  Otherwise,
an existing ".com" could override the changes to a given file.
---

diff --git a/v7/src/compiler/machines/bobcat/compiler.sf b/v7/src/compiler/machines/bobcat/compiler.sf
index 48333a846..6c7d97b7a 100644
--- a/v7/src/compiler/machines/bobcat/compiler.sf
+++ b/v7/src/compiler/machines/bobcat/compiler.sf
@@ -6,7 +6,10 @@
 (let ((sf-and-load
        (lambda (files package)
 	 (sf-conditionally files)
-	 (load files (package/environment (find-package package)))))
+	 (let ((environment (package/environment (find-package package))))
+	   (for-each (lambda (file)
+		       (load (string-append file ".bin") environment))
+		     files))))
       (compiler-package (find-package '(COMPILER))))
   (write-string "\n\n---- Loading compile-time files ----")
   (sf-and-load '("base/switch" "base/hashtb") '(COMPILER))