From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 12 Oct 1988 06:27:11 +0000 (+0000)
Subject: Add code to load the package modeller if needed.
X-Git-Tag: 20090517-FFI~12518
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e7f2860ffadaa632b32825a5de17f20ef8764b47;p=mit-scheme.git

Add code to load the package modeller if needed.
---

diff --git a/v7/src/runtime/runtime.sf b/v7/src/runtime/runtime.sf
index 5c1122506..f16cce3bd 100644
--- 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 b21889282..0147ee021 100644
--- 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