*** empty log message ***

diff --git a/v8/src/compiler/machines/spectrum/compiler.sf b/v8/src/compiler/machines/spectrum/compiler.sf
index c907ba6a2ff9fbb73c21020dfbc0f384e1116c6d..0dad5bc01598abd9787fdaac4bcbcc024d0374d0 100644 (file)
--- a/v8/src/compiler/machines/spectrum/compiler.sf
+++ b/v8/src/compiler/machines/spectrum/compiler.sf
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: compiler.sf,v 1.3 1995/01/07 00:29:42 cph Exp $
+$Id: compiler.sf,v 1.4 1995/03/13 04:33:05 adams Exp $
 
 Copyright (c) 1988-95 Massachusetts Institute of Technology
 
@@ -35,6 +35,7 @@ MIT in each case. |#
 ;;;; Script to incrementally syntax the compiler
 \f
 ;; Guarantee that the package modeller is loaded.
+(load-option 'SF)
 (load-option 'CREF)
 
 ;; Guarantee that the compiler's package structure exists.
@@ -88,6 +89,16 @@ MIT in each case. |#
       (sf-and-load '("machines/spectrum/inerly" "back/syerly")
                   '(COMPILER LAP-SYNTAXER))))
 
+(if (lexical-unreferenceable? (->environment '()) '%matchup)
+    (let ((sf-and-load
+          (lambda (files package)
+            (sf-conditionally files)
+            (for-each (lambda (file)
+                        (load (string-append file ".bin") package))
+                      files))))
+      (write-string "\n\n---- Loading compile-time files ----")
+      (sf-and-load '("midend/synutl") '()))) ;; This should go elsewhere!
+
 ;; Load the assembler instruction database.
 (in-package (->environment '(COMPILER LAP-SYNTAXER))
   (if (and compiler:enable-expansion-declarations?