From 15af550727b6857f3cb97a0b1f7fe48b8e9824b4 Mon Sep 17 00:00:00 2001 From: Stephen Adams Date: Tue, 6 Dec 1994 17:39:15 +0000 Subject: [PATCH] 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. --- v7/src/runtime/runtime.sf | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) 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") -- 2.25.1