Syntax new compiler with new runtime, sf, etc.

diff --git a/src/etc/build-bands.sh b/src/etc/build-bands.sh
index 55a777de89254b95be3c972988cff97a1a76ec34..f47f67fcbea84d21dd25fd2e1add324d92cb8a93 100755 (executable)
--- a/src/etc/build-bands.sh
+++ b/src/etc/build-bands.sh
@@ -26,12 +26,9 @@ set -e
 
 . etc/functions.sh
 
-FASL=`get_fasl_file`
-
 run_cmd_in_dir runtime ../microcode/scheme --library ../lib --heap 6000 \
-    --fasl "${FASL}" --batch-mode <<EOF
+    --band runtime.com --batch-mode <<EOF
 (begin
-  (disk-save "../lib/runtime.com")
   (load-option (quote compiler))
   (load-option (quote edwin))
   (disk-save "../lib/all.com"))

diff --git a/src/etc/compile.scm b/src/etc/compile.scm
index 30445eea4161219b847c7c99cc60259ee7783bf6..810e2c0a0acaa57e63828c3972621645acb6862d 100644 (file)
--- a/src/etc/compile.scm
+++ b/src/etc/compile.scm
@@ -34,6 +34,9 @@ USA.
 
 (define (compile-all-dirs compile-dir)
   (compile-boot-dirs compile-dir)
+  (compile-remaining-dirs compile-dir))
+
+(define (compile-remaining-dirs compile-dir)
   (compile-dir "sos")
   (with-working-directory-pathname "sos"
     (lambda ()

diff --git a/src/etc/compile.sh b/src/etc/compile.sh
index b491877a8c76c342d43fa68c3aff140283bc2457..dd11ef8bde02c00e6346c0467f03beb5929aa733 100755 (executable)
--- a/src/etc/compile.sh
+++ b/src/etc/compile.sh
@@ -26,8 +26,32 @@ set -e
 
 . etc/functions.sh
 
-run_cmd "${@}" --heap 6000 --stack 200 --batch-mode <<EOF
-(begin
-  (load "etc/compile.scm")
-  (compile-everything))
+run_cmd "${@}"<<EOF
+(load "etc/compile.scm")
+(compile-cref compile-dir)
+(for-each compile-dir '("runtime" "star-parser" "sf"))
+EOF
+
+FASL=`get_fasl_file`
+run_cmd_in_dir runtime ../microcode/scheme --batch-mode                \
+       --library ../lib --fasl $FASL <<EOF
+(disk-save "../lib/runtime.com")
+EOF
+
+# Syntax the new compiler in fresh (compiler) packages.  Use the new sf too.
+run_cmd ./microcode/scheme --batch-mode --library lib --band runtime.com <<EOF
+(load-option 'SF)
+(with-working-directory-pathname "compiler/"
+  (lambda () (load "compiler.sf")))
+EOF
+
+run_cmd "${@}"<<EOF
+(with-working-directory-pathname "compiler/"
+  (lambda () (load "compiler.cbf")))
+EOF
+
+run_cmd ./microcode/scheme --batch-mode --library lib --band runtime.com <<EOF
+(load-option 'COMPILER)
+(load "etc/compile.scm")
+(compile-remaining-dirs compile-dir)
 EOF