suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix get-preferences when the file isn't there

Browse Source 
svn: r5896
This commit is contained in:
Matthew Flatt 2007-04-09 02:40:57 +00:00
parent b41a2abf23
commit 61785f1fc8
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mzlib/file.ss
View File

@ -344,7 +344,7 @@
(= (car cache) (= (car cache)
(file-or-directory-modify-seconds fn #f (lambda () -inf.0)))))) (file-or-directory-modify-seconds fn #f (lambda () -inf.0))))))
(cdr cache) (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)]) [f (read-prefs fn)])
(pref-cache-install! fn fn f) (pref-cache-install! fn fn f)
f)))) f))))