From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 6 Jan 1995 20:51:57 +0000 (+0000)
Subject: Use LOAD-OPTION to load CREF.
X-Git-Tag: 20090517-FFI~6784
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d5794ecf68bd080ca8cb6fc1e31417e6ce6c0713;p=mit-scheme.git

Use LOAD-OPTION to load CREF.
---

diff --git a/v7/src/rcs/rcs.sf b/v7/src/rcs/rcs.sf
index 362ef5c3c..971bc56e4 100644
--- a/v7/src/rcs/rcs.sf
+++ b/v7/src/rcs/rcs.sf
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: rcs.sf,v 1.6 1995/01/06 18:37:56 cph Exp $
+$Id: rcs.sf,v 1.7 1995/01/06 20:51:57 cph Exp $
 
 Copyright (c) 1988-95 Massachusetts Institute of Technology
 
@@ -35,10 +35,7 @@ MIT in each case. |#
 (fluid-let ((sf/default-syntax-table system-global-syntax-table))
   (sf-directory "."))
 
-;; Guarantee that the package modeller is loaded.
-(if (not (name->package '(CROSS-REFERENCE)))
-    (with-working-directory-pathname "../cref" (lambda () (load "make"))))
-
+(load-option 'CREF)
 (cref/generate-constructors "rcs")
 (sf "rcs.con")
 (sf "rcs.ldr")
\ No newline at end of file