From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Tue, 6 Dec 1994 17:39:15 +0000 (+0000)
Subject: Used LOAD-OPTION to load cref.
X-Git-Tag: 20090517-FFI~6892
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=15af550727b6857f3cb97a0b1f7fe48b8e9824b4;p=mit-scheme.git

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 8854a6254..29aaff7e5 100644
--- 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")