From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 9 Apr 2007 16:44:06 +0000 (+0000)
Subject: Initial compiler should have cref support.
X-Git-Tag: 20090517-FFI~669
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=3e15382b707c22839795191bf9c1fb3316495f7c;p=mit-scheme.git

Initial compiler should have cref support.
---

diff --git a/v7/src/etc/c-initial-bands.sh b/v7/src/etc/c-initial-bands.sh
index 4dedbc204..dddb747ea 100755
--- a/v7/src/etc/c-initial-bands.sh
+++ b/v7/src/etc/c-initial-bands.sh
@@ -1,6 +1,6 @@
 #!/bin/sh
 #
-# $Id: c-initial-bands.sh,v 1.1 2007/04/04 05:08:19 riastradh Exp $
+# $Id: c-initial-bands.sh,v 1.2 2007/04/09 16:44:06 cph Exp $
 #
 # Copyright 2007 Massachusetts Institute of Technology
 #
@@ -31,10 +31,13 @@ EOF
 )
 
 microcode/scheme --library lib --large <<EOF
-(load "microcode/sf+compiler.so")
-(load-option 'SF)
-(with-working-directory-pathname "compiler"
-  (lambda ()
-    (load "machines/C/make")))
-(load-option '*PARSER)
-(disk-save "lib/compiler.com")
+(begin
+  (load "microcode/sf+compiler.so")
+  (load-option (quote SF))
+  (with-working-directory-pathname "compiler"
+    (lambda ()
+      (load "machines/C/make")))
+  (load-option (quote *PARSER))
+  (load-option (quote CREF))
+  (disk-save "lib/compiler.com"))
+EOF