From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 3 Aug 1989 23:43:05 +0000 (+0000)
Subject: Don't generate ".cref" file by default.
X-Git-Tag: 20090517-FFI~11882
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e89de1d75e14ae7241ce616ab436f0dbcf01336c;p=mit-scheme.git

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 555edbf48..91e1f2fb7 100644
--- 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 0857c3d44..f6fffd304 100644
--- 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 edee23d0a..12b1e31a8 100644
--- 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