From d5794ecf68bd080ca8cb6fc1e31417e6ce6c0713 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 6 Jan 1995 20:51:57 +0000 Subject: [PATCH] Use LOAD-OPTION to load CREF. --- v7/src/rcs/rcs.sf | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) 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 -- 2.25.1