Don't generate ".cref" file by default.

diff --git a/v7/src/compiler/machines/bobcat/compiler.sf b/v7/src/compiler/machines/bobcat/compiler.sf
index 555edbf48899d3d64d1de2a671760b8c0864110d..91e1f2fb75083b08e9b7972539866d64aeab0d16 100644 (file)
--- a/v7/src/compiler/machines/bobcat/compiler.sf
+++ b/v7/src/compiler/machines/bobcat/compiler.sf
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/compiler.sf,v 1.8 1989/07/25 13:05:50 arthur Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/compiler.sf,v 1.9 1989/08/03 23:43:05 cph Exp $
 
 Copyright (c) 1988, 1989 Massachusetts Institute of Technology
 
@@ -96,5 +96,6 @@ MIT in each case. |#
 ((access syntax-files! (->environment '(COMPILER))))
 
 ;; Rebuild the package constructors and cref.
-(cref/generate-all "comp")(sf "comp.con" "comp.bcon")
+(cref/generate-constructors "comp")
+(sf "comp.con" "comp.bcon")
 (sf "comp.ldr" "comp.bldr")
\ No newline at end of file

diff --git a/v7/src/edwin/edwin.sf b/v7/src/edwin/edwin.sf
index 0857c3d44c0061d73478fd205e5e65bc0054e2ba..f6fffd3040fd59266e6b631f71be28349da18441 100644 (file)
--- a/v7/src/edwin/edwin.sf
+++ b/v7/src/edwin/edwin.sf
@@ -52,7 +52,7 @@
 (in-package (->environment '(CROSS-REFERENCE))
   ((generate/common
     (lambda (pathname pmodel)
-      (write-cref pathname pmodel)      (write-globals pathname pmodel)
+      (write-globals pathname pmodel)
       (write-constructor pathname pmodel)))
    "edwin"))
 (sf "edwin.con" "edwin.bcon")

diff --git a/v7/src/sf/sf.sf b/v7/src/sf/sf.sf
index edee23d0af24db879ba32fd4a5dc5a027b1abd6e..12b1e31a831ac959d05f4627f9e4caf828a6ed26 100644 (file)
--- a/v7/src/sf/sf.sf
+++ b/v7/src/sf/sf.sf
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/sf.sf,v 4.3 1988/10/29 00:07:01 cph Rel $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/sf.sf,v 4.4 1989/08/03 23:39:59 cph Exp $
 
-Copyright (c) 1988 Massachusetts Institute of Technology
+Copyright (c) 1988, 1989 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -55,5 +55,6 @@ MIT in each case. |#
 (if (not (name->package '(CROSS-REFERENCE)))
     (with-working-directory-pathname "../cref" (lambda () (load "make"))))
 
-(cref/generate-all "sf")(sf "sf.con" "sf.bcon")
+(cref/generate-constructors "sf")
+(sf "sf.con" "sf.bcon")
 (sf "sf.ldr" "sf.bldr")
\ No newline at end of file