From: Chris Hanson Date: Tue, 29 May 2001 19:58:28 +0000 (+0000) Subject: Don't use LOAD-OPTION to load cref; it probably doesn't exist on the X-Git-Tag: 20090517-FFI~2768 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b69ce0f9c9f3f306ed1b61a6d0726a73252a1037;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 0cbac8ebb..78be8ce9d 100644 --- a/v7/src/cref/cref.sf +++ b/v7/src/cref/cref.sf @@ -1,8 +1,8 @@ #| -*-Scheme-*- -$Id: cref.sf,v 1.10 1999/01/02 06:11:34 cph Exp $ +$Id: cref.sf,v 1.11 2001/05/29 19:58:28 cph Exp $ -Copyright (c) 1988-1999 Massachusetts Institute of Technology +Copyright (c) 1988-2001 Massachusetts Institute of Technology This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by @@ -16,7 +16,8 @@ General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software -Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, +USA. |# (sf/set-default-syntax-table! system-global-syntax-table) @@ -30,7 +31,7 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. (if (file-exists? "../runtime/runtime.glo") (begin - (load-option 'CREF) + (load "make") (cref/generate-constructors "cref") (sf-conditionally "cref.con") (sf-conditionally "cref.ldr"))) \ No newline at end of file