From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 29 May 2001 21:25:33 +0000 (+0000)
Subject: Don't use LOAD-OPTION to load cref; it probably doesn't exist on the
X-Git-Tag: 20090517-FFI~2762
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=92551b526bd70e831b292f0829a1ec3c438708a6;p=mit-scheme.git

Don't use LOAD-OPTION to load cref; it probably doesn't exist on the
host system (outside of MIT), and this will cause an error if the user
has MITSCHEME_INF_DIRECTORY set.
---

diff --git a/v7/src/cref/cref.sf b/v7/src/cref/cref.sf
index 78be8ce9d..c4582f40d 100644
--- a/v7/src/cref/cref.sf
+++ b/v7/src/cref/cref.sf
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: cref.sf,v 1.11 2001/05/29 19:58:28 cph Exp $
+$Id: cref.sf,v 1.12 2001/05/29 21:25:33 cph Exp $
 
 Copyright (c) 1988-2001 Massachusetts Institute of Technology
 
@@ -31,7 +31,8 @@ USA.
 
 (if (file-exists? "../runtime/runtime.glo")
     (begin
-      (load "make")
+      (if (not (name->package '(CROSS-REFERENCE)))
+	  (load "make"))
       (cref/generate-constructors "cref")
       (sf-conditionally "cref.con")
       (sf-conditionally "cref.ldr")))
\ No newline at end of file