From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Mon, 13 Mar 1995 04:33:05 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Tag: 20090517-FFI~6540
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=7e4f43b70b6b464f7a0a88d20532d44cc773695e;p=mit-scheme.git

*** empty log message ***
---

diff --git a/v8/src/compiler/machines/spectrum/compiler.sf b/v8/src/compiler/machines/spectrum/compiler.sf
index c907ba6a2..0dad5bc01 100644
--- 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
 
 ;; 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?