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

parse the preferences file more carefully now.

Browse Source 
original commit: 2ee1a3c4824fc6ebbebd10441a6e116ff1c10838
This commit is contained in:
Robby Findler 1997-04-29 19:34:57 +00:00
parent ecc9804e14
commit 65935e74c8
1 changed files with 23 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
collects/mred/prefs.ss
View File

@ -213,9 +213,29 @@
(lambda ()
(mred:debug:printf 'prefs "reading user preferences")
(when (file-exists? preferences-filename)
(let ([input (call-with-input-file preferences-filename read)])
(when (list? input)
(for-each (lambda (x) (apply parse-pref x)) input))))
(let ([input (call-with-input-file preferences-filename read)]
[err
(lambda (input)
(wx:message-box (format "found bad pref: ~n~a" input)
"Preferences"))])
(let loop ([input input])
(cond
[(pair? input)
(let/ec k
(let ([first (car input)]
[rest (cdr input)])
(when (pair? first)
(let ([arg1 (car first)]
[t1 (cdr first)])
(when (pair? t1)
(let ([arg2 (car t1)]
[t2 (cdr t1)])
(when (null? t2)
(parse-pref arg1 arg2)
(k #t)))))))
(err input))]
[(null? input) (void)]
[else (err input)]))))
(mred:debug:printf 'prefs "read user preferences"))))
(define-struct ppanel (title container))