From: Chris Hanson Date: Sun, 6 Aug 1989 07:52:22 +0000 (+0000) Subject: Enable memoization -- it's a great time saver. X-Git-Tag: 20090517-FFI~11875 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ecc6a1c1c94275a8bafc515533e0bd80fd161390;p=mit-scheme.git Enable memoization -- it's a great time saver. --- 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