From 60bec9f9eecdaea40863f7c430850d488fee3d95 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 6 Jan 1995 19:25:59 +0000 Subject: [PATCH] Change 4-character suffixes used by package system to be 3-character suffixes. This is done by defaulting the output file on the call to SF, which now generates the correct 3-character suffix. --- v7/src/cref/cref.sf | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/v7/src/cref/cref.sf b/v7/src/cref/cref.sf index b36161cda..89ad48700 100644 --- a/v7/src/cref/cref.sf +++ b/v7/src/cref/cref.sf @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: cref.sf,v 1.7 1995/01/06 18:38:47 cph Exp $ +$Id: cref.sf,v 1.8 1995/01/06 19:25:59 cph Exp $ Copyright (c) 1988-95 Massachusetts Institute of Technology @@ -41,10 +41,9 @@ MIT in each case. |# (if (not (file-exists? "cref.bld")) (sf "triv.ldr" "cref.bld")) -(if (file-exists? "../runtime/runtim.glo") +(if (file-exists? "../runtime/runtime.glo") (begin - (if (not (name->package '(CROSS-REFERENCE))) - (load "make")) + (load-option 'CREF) (cref/generate-constructors "cref") (sf "cref.con") (sf "cref.ldr"))) \ No newline at end of file -- 2.25.1