Add code to load the package modeller if needed.

diff --git a/v7/src/runtime/runtime.sf b/v7/src/runtime/runtime.sf
index 5c11225060d6882a2b2709011f7c45b2bcbb73e8..f16cce3bdd1f134915df2e6952952bbf20417d30 100644 (file)
--- a/v7/src/runtime/runtime.sf
+++ b/v7/src/runtime/runtime.sf
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/runtime.sf,v 14.1 1988/06/13 12:07:03 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/runtime.sf,v 14.2 1988/10/12 06:26:29 cph Rel $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -33,5 +33,10 @@ promotional, or sales literature without prior written consent from
 MIT in each case. |#
 
 (sf/set-default-syntax-table! syntax-table/system-internal)
-(sf-directory ".")(cref/generate-all "runtim")(sf "runtim.con" "runtim.bcon")
+(sf-directory ".")
+;; Guarantee that the package modeller is loaded.
+(if (not (name->package '(CROSS-REFERENCE)))
+    (with-working-directory-pathname "../cref" (lambda () (load "make"))))
+
+(cref/generate-all "runtim")(sf "runtim.con" "runtim.bcon")
 (sf "runtim.ldr" "runtim.bldr")
\ No newline at end of file

diff --git a/v7/src/sf/sf.sf b/v7/src/sf/sf.sf
index b2188928258c6ea8c8811ea0d8e88478351edd95..0147ee0213d6bbe9d6570d0498075c5d63a5f04d 100644 (file)
--- a/v7/src/sf/sf.sf
+++ b/v7/src/sf/sf.sf
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/sf.sf,v 4.1 1988/06/13 12:28:58 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/sf.sf,v 4.2 1988/10/12 06:27:11 cph Exp $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -36,5 +36,10 @@ MIT in each case. |#
 (sf-conditionally "object")
 (sf-conditionally "lsets")
 (sf-directory ".")
+
+;; Guarantee that the package modeller is loaded.
+(if (not (name->package '(CROSS-REFERENCE)))
+    (with-working-directory-pathname "../cref" (lambda () (load "make"))))
+
 (cref/generate-all "sf")(sf "sf.con" "sf.bcon")
 (sf "sf.ldr" "sf.bldr")
\ No newline at end of file