Used LOAD-OPTION to load cref.

This ensures that, when cross-syntaxing, the host system's cref is
loaded, not the cref from the target system.

diff --git a/v7/src/runtime/runtime.sf b/v7/src/runtime/runtime.sf
index 8854a6254f1d8f5a8d01818230ddf4f41bf8e8b6..29aaff7e53219dcc17e64f07139631950d0d56f9 100644 (file)
--- a/v7/src/runtime/runtime.sf
+++ b/v7/src/runtime/runtime.sf
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.sf,v 14.9 1994/01/08 21:03:38 gjr Exp $
+$Id: runtime.sf,v 14.10 1994/12/06 17:39:15 adams Exp $
 
 Copyright (c) 1988-1994 Massachusetts Institute of Technology
 
@@ -35,9 +35,13 @@ MIT in each case. |#
 (fluid-let ((sf/default-syntax-table syntax-table/system-internal))
   (sf-directory "."))
 
-;; Guarantee that the package modeller is loaded.
-(if (not (name->package '(CROSS-REFERENCE)))
-    (with-working-directory-pathname "../cref" (lambda () (load "make"))))
+;; Guarantee that the package modeller is loaded.  load-option ensures
+;; that when cross-syntaxing the cref `native' to the running system
+;; is loaded.
+(load-option 'CREF)
+;;Was:
+;;(if (not (name->package '(CROSS-REFERENCE)))
+;;    (with-working-directory-pathname "../cref" (lambda () (load "make"))))
 
 (cref/generate-constructors "runtime")
 (sf "runtime.con" "runtime.bcon")