Rewrite so that the script is run when the working directory is the

root of the scheme tree, rather than the runtime subdirectory.  Also
do a little simplification.

diff --git a/v7/src/etc/script.scm b/v7/src/etc/script.scm
index c627b570bd4878404f3cbd3122708222fae7fcce..e5e5543a11bfd07d1f797cd59628cf9aa22d4a80 100644 (file)
--- a/v7/src/etc/script.scm
+++ b/v7/src/etc/script.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: script.scm,v 1.1 2006/09/16 11:19:09 gjr Exp $
+$Id: script.scm,v 1.2 2006/09/25 05:57:34 cph Exp $
 
 Copyright 2006 Massachusetts Institute of Technology
 
@@ -26,39 +26,25 @@ USA.
 ;;;; Program to compile MIT/GNU Scheme
 
 ;;; This is used to compile a part of the system written in Scheme.
-;;; This is the part of the system statically linked into the microcode
-;;; when using the C back end of the compiler.
-
-;; (set! compiler:invoke-c-compiler? false)
-
-(fluid-let ((compiler:invoke-c-compiler? false))
-  (with-working-directory-pathname
-   "../microcode"
-   (lambda ()
-     (if (or (not (file-exists? "utabmd.bin"))
-            (> (file-modification-time-indirect "utabmd.scm")
-               (file-modification-time-indirect "utabmd.bin")))
-        (sf "utabmd"))
-     (cbf "utabmd")))
-  (let ((dirs '("runtime" "sf" "cref" "compiler")))
-    (for-each
-     (lambda (dir)
-       (with-working-directory-pathname
-       (string-append "../" dir)
-       (lambda ()
-         (load (string-append dir ".sf")))))
-     dirs)
-    (for-each
-     (lambda (dir)
-       (with-working-directory-pathname
-       (string-append "../" dir)
-       (lambda ()
-         (load (string-append dir ".cbf"))
-         (cbf (string-append dir "-unx.pkd")))))
-     dirs))
-  (with-working-directory-pathname
-   "../star-parser"
-   (lambda ()
-     (load "compile.scm")
-     (cbf "parser-unx.pkd")))
-  )
+;;; This is the part of the system statically linked into the
+;;; microcode when using the C back end of the compiler.
+
+(fluid-let ((compiler:invoke-c-compiler? #f))
+  (with-working-directory-pathname "microcode"
+    (lambda ()
+      (if (or (not (file-exists? "utabmd.bin"))
+             (> (file-modification-time-indirect "utabmd.scm")
+                (file-modification-time-indirect "utabmd.bin")))
+         (sf "utabmd"))
+      (cbf "utabmd")))
+  (for-each (lambda (dir)
+             (with-working-directory-pathname dir
+               (lambda ()
+                 (load (string-append dir ".sf"))
+                 (load (string-append dir ".cbf"))
+                 (cbf (string-append dir "-unx.pkd")))))
+           '("runtime" "sf" "cref" "compiler"))
+  (with-working-directory-pathname "star-parser"
+    (lambda ()
+      (load "compile.scm")
+      (cbf "parser-unx.pkd"))))
\ No newline at end of file