Don't generate ".free" files by default.

diff --git a/v7/src/cref/anfile.scm b/v7/src/cref/anfile.scm
index 0e9426b3ac0b3cc884cd422b3f16d3343992ecc8..319a0019ff9397535844963bcfc6b6bd16e2f4f5 100644 (file)
--- a/v7/src/cref/anfile.scm
+++ b/v7/src/cref/anfile.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/cref/anfile.scm,v 1.1 1988/06/13 12:38:14 cph Rel $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/cref/anfile.scm,v 1.2 1989/08/03 23:25:35 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
@@ -54,7 +54,12 @@ MIT in each case. |#
        (analyze/file input-pathname output-pathname))))
 
 (define (analyze/file input-pathname output-pathname)
-  (fasdump (analyze/top-level (fasload input-pathname)) output-pathname))
+  (let ((analyzed-file (analyze/top-level (fasload input-pathname))))
+    (if analyze/file/memoize?
+       (fasdump analyzed-file output-pathname))
+    analyzed-file))
+
+(define analyze/file/memoize? false)
 (define (compare-file-modification-times x y)
   (let ((x (file-modification-time x)))
     (and x

diff --git a/v7/src/cref/make.scm b/v7/src/cref/make.scm
index 3ed6351a27b92c9bf7db1907209d5fb64c9d872c..79856deee27b040be07154ce736b45095f9b1e31 100644 (file)
--- a/v7/src/cref/make.scm
+++ b/v7/src/cref/make.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/cref/make.scm,v 1.4 1988/12/23 21:39:10 cph Rel $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/cref/make.scm,v 1.5 1989/08/03 23:26:06 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
@@ -37,4 +37,4 @@ MIT in each case. |#
 (declare (usual-integrations))
 
 (package/system-loader "cref" '() false)
-(add-system! (make-system "CREF" 1 4 '()))
\ No newline at end of file
+(add-system! (make-system "CREF" 1 5 '()))
\ No newline at end of file