From ecc6a1c1c94275a8bafc515533e0bd80fd161390 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sun, 6 Aug 1989 07:52:22 +0000 Subject: [PATCH] Enable memoization -- it's a great time saver. --- v7/src/cref/anfile.scm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/v7/src/cref/anfile.scm b/v7/src/cref/anfile.scm index 319a0019f..d7411b531 100644 --- a/v7/src/cref/anfile.scm +++ b/v7/src/cref/anfile.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$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 $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/cref/anfile.scm,v 1.3 1989/08/06 07:52:22 cph Exp $ Copyright (c) 1988, 1989 Massachusetts Institute of Technology @@ -59,7 +59,8 @@ MIT in each case. |# (fasdump analyzed-file output-pathname)) analyzed-file)) -(define analyze/file/memoize? false) +(define analyze/file/memoize? true) + (define (compare-file-modification-times x y) (let ((x (file-modification-time x))) (and x -- 2.25.1