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

indentation

Browse Source 
svn: r4837
This commit is contained in:
Eli Barzilay 2006-11-13 18:50:36 +00:00
parent c5f4d87e2c
commit 9d04d4dcfc
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/mzlib/file.ss
View File

@ -313,12 +313,12 @@
(lambda ()
(with-input-from-file pref-file read)))])
;; Make sure file content had the right shape:
(if (and (list? prefs)
(andmap (lambda (x)
(and (pair? x) (pair? (cdr x)) (null? (cddr x))))
prefs))
prefs
null))))
(if (and (list? prefs)
(andmap (lambda (x)
(and (pair? x) (pair? (cdr x)) (null? (cddr x))))
prefs))
prefs
null))))
(let ([f (and (not flush?) (not filename) (weak-box-value pref-box))])
(or f (let ([f (read-prefs)])
(unless filename (set! pref-box (make-weak-box f)))