From 61785f1fc85259ff24ca7972305ee63c0186cadd Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 9 Apr 2007 02:40:57 +0000 Subject: [PATCH] fix get-preferences when the file isn't there svn: r5896 --- collects/mzlib/file.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/mzlib/file.ss b/collects/mzlib/file.ss index 1b768e80b1..d71c6b8098 100644 --- a/collects/mzlib/file.ss +++ b/collects/mzlib/file.ss @@ -344,7 +344,7 @@ (= (car cache) (file-or-directory-modify-seconds fn #f (lambda () -inf.0)))))) (cdr cache) - (let ([ts (file-or-directory-modify-seconds fn)] + (let ([ts (file-or-directory-modify-seconds fn #f (lambda () -inf.0))] [f (read-prefs fn)]) (pref-cache-install! fn fn f) f))))