svm: Fix (load-option 'compiler).

Syntax compiler/machine/make, not compiler/make.  The
compiler/make.bin|com symlinks seem to confuse sf/conditionally.
CREF is required when loading compiler-unx.pkd(?).

diff --git a/src/compiler/machines/svm/compiler.sf b/src/compiler/machines/svm/compiler.sf
index 8958ffe982927c688d2f899f5461bca2d29de168..62660f7237494227bc7e8bb8f9aa5f55ab552148 100644 (file)
--- a/src/compiler/machines/svm/compiler.sf
+++ b/src/compiler/machines/svm/compiler.sf
@@ -26,10 +26,8 @@ USA.
 
 ;;;; Script to incrementally syntax the compiler
 \f
-(with-loader-base-uri "../lib"         ;Use the accompanying sf and cref.
-  (lambda ()
-    (load-option 'CREF)
-    (load-option 'SF)))
+(load-option 'CREF)
+(load-option 'SF)
 
 ;; Guarantee that the compiler's package structure exists.
 (if (not (name->package '(COMPILER)))
@@ -85,7 +83,7 @@ USA.
 
 ;; Resyntax any files that need it.
 ((access syntax-files! (->environment '(COMPILER))))
-(sf-conditionally "make")
+(sf-conditionally "machine/make")
 
 ;; Rebuild the package constructors and cref.
 (cref/generate-constructors "compiler" 'ALL)
\ No newline at end of file

diff --git a/src/compiler/machines/svm/make.scm b/src/compiler/machines/svm/make.scm
index fb55b5127b482834d2fa0c67bcb1a838a02028bf..bf5fadcedab09b96787c1cff8984430062bf98f5 100644 (file)
--- a/src/compiler/machines/svm/make.scm
+++ b/src/compiler/machines/svm/make.scm
@@ -28,6 +28,10 @@ USA.
 
 (declare (usual-integrations))
 
+;; The (cross-reference) package is needed when loading the compiler's
+;; package set.
+(load-option 'CREF)
+
 (let ((value ((load "base/make") "svm1")))
   (set! (access compiler:compress-top-level? (->environment '(compiler))) #t)
   ((access init-assembler-instructions! (->environment '(compiler assembler))))

diff --git a/src/etc/compile-svm.sh b/src/etc/compile-svm.sh
index 22f2a5c5fbc164c94294a2d2c542d47dbc00bdd5..0918d3e8abf2196e64345fc2a9824e414150680d 100755 (executable)
--- a/src/etc/compile-svm.sh
+++ b/src/etc/compile-svm.sh
@@ -53,7 +53,7 @@ done
 run_cmd_in_dir star-parser "${@}" --batch-mode --load compile.scm </dev/null
 FASL=make.com
 
-# Dump prerequisites into x-runtime.com.
+# Dump new runtime into x-runtime.com.
 run_cmd_in_dir runtime \
     "${@}" --batch-mode --library ../lib --fasl $FASL <<EOF
 (disk-save "../lib/x-runtime.com")
@@ -80,17 +80,12 @@ run_cmd "${@}" --batch-mode --library lib --band x-runtime.com <<EOF
 (load-option 'SF)
 (load-option 'CREF)
 (load-option '*PARSER)
-;;(load-option 'COMPILER)
-;; The above fails!  Unable to find package directory: "compiler"
-(with-working-directory-pathname "compiler"
-  (lambda () (load "machine/make")))
+(load-option 'COMPILER)
 (disk-save "lib/x-compiler.com")
 EOF
 
 # Remove host code to STAGEX/ subdirs.
 run_cmd ./Stage.sh make X
-# Dodge incompatibility between 9.0.1 and master.
-run_cmd_in_dir runtime mv os2winp.ext os2winp.bin STAGEX
 
 # Restore previously cross-compiled code (if any).  (Replace "unmake"
 # with "remove" to start from scratch with each rebuilt