Use LOAD-OPTION to load CREF.

diff --git a/v7/src/rcs/rcs.sf b/v7/src/rcs/rcs.sf
index 362ef5c3c49b971782cfda08fd4fd770ef33896d..971bc56e4529f7fb5a55341b833a389ac018be79 100644 (file)
--- 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