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.

diff --git a/v7/src/cref/cref.sf b/v7/src/cref/cref.sf
index b36161cdacbbbf38c45e494f65c41099909fa2a7..89ad487002a5f132a859b8fdd88f9b641900ddec 100644 (file)
--- 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