From 012568338e75ab5c51be31abfb652c321611f2a8 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Wed, 24 Aug 1988 06:53:01 +0000 Subject: [PATCH] Guarantee that the ".bin" version of each file is loaded. Otherwise, an existing ".com" could override the changes to a given file. --- v7/src/compiler/machines/bobcat/compiler.sf | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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)) -- 2.25.1