From: Henry M. Wu <edu/mit/csail/zurich/mhwu>
Date: Thu, 4 Jun 1992 02:57:18 +0000 (+0000)
Subject: Made file loadable without having to first build the runtime system.
X-Git-Tag: 20090517-FFI~9292
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=5c1191745e67eba0537e1f64a23a3ca9e0755314;p=mit-scheme.git

Made file loadable without having to first build the runtime system.
---

diff --git a/v7/src/cref/cref.sf b/v7/src/cref/cref.sf
index 4402fb6cd..472aeb910 100644
--- a/v7/src/cref/cref.sf
+++ b/v7/src/cref/cref.sf
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/cref/cref.sf,v 1.3 1991/02/16 17:44:53 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/cref/cref.sf,v 1.4 1992/06/04 02:57:18 mhwu Exp $
 
 Copyright (c) 1988, 1989 Massachusetts Institute of Technology
 
@@ -35,14 +35,23 @@ MIT in each case. |#
 (sf/set-default-syntax-table! system-global-syntax-table)
 (sf-conditionally "object")
 (sf-directory ".")
-(if (not (name->package '(CROSS-REFERENCE)))
-    (with-working-directory-pathname "../cref"
-      (lambda ()
-	(if (not (file-exists? "cref.bcon"))
-	    (sf "triv.con" "cref.bcon"))
-	(if (not (file-exists? "cref.bldr"))
-	    (sf "triv.ldr" "cref.bldr"))
-	(load "make"))))
-(cref/generate-constructors "cref")
-(sf "cref.con" "cref.bcon")
-(sf "cref.ldr" "cref.bldr")
\ No newline at end of file
+
+;; Before runtime system is built this next thunk is the one
+;; used.
+(with-working-directory-pathname "../cref" ; this is rather useless
+  (lambda ()
+    (if (not (file-exists? "cref.bcon"))
+	(sf "triv.con" "cref.bcon"))
+    (if (not (file-exists? "cref.bldr"))
+	(sf "triv.ldr" "cref.bldr"))))
+
+;; After the runtime system is built, more elaborate work is done
+(with-working-directory-pathname "../cref" ; this is rather useless
+  (lambda ()
+    (if (file-exists? "../runtime/runtime.glob")
+	(begin
+	  (if (not (name->package '(CROSS-REFERENCE)))
+	      (load "make"))
+	  (cref/generate-constructors "cref")
+	  (sf "cref.con" "cref.bcon")
+	  (sf "cref.ldr" "cref.bldr")))))
\ No newline at end of file