From ef5859067ce28de1142f6d8b146920f813eeb59f Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 3 Aug 1989 23:26:06 +0000 Subject: [PATCH] Don't generate ".free" files by default. --- v7/src/cref/anfile.scm | 11 ++++++++--- v7/src/cref/make.scm | 6 +++--- 2 files changed, 11 insertions(+), 6 deletions(-) diff --git a/v7/src/cref/anfile.scm b/v7/src/cref/anfile.scm index 0e9426b3a..319a0019f 100644 --- 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 3ed6351a2..79856deee 100644 --- 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 -- 2.25.1