fix get-preferences when the file isn't there

svn: r5896 original commit: 61785f1fc85259ff24ca7972305ee63c0186cadd
2007-04-09 02:40:57 +00:00 · 2007-04-09 02:40:57 +00:00 · 41e0bfd9b7
commit 41e0bfd9b7
parent cfdc482cb8
1 changed files with 1 additions and 1 deletions
--- 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))))