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

cleaned up

Browse Source 
original commit: ebfab9ee0bc3d2313345d264d9f1a63f95966dbb
This commit is contained in:
Robby Findler 1997-04-29 19:36:44 +00:00
parent 65935e74c8
commit a6dbd46b1e
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/mred/prefs.ss
View File

@ -213,12 +213,12 @@
(lambda () (lambda ()
(mred:debug:printf 'prefs "reading user preferences") (mred:debug:printf 'prefs "reading user preferences")
(when (file-exists? preferences-filename) (when (file-exists? preferences-filename)
(let ([input (call-with-input-file preferences-filename read)] (let ([err
[err
(lambda (input) (lambda (input)
(wx:message-box (format "found bad pref: ~n~a" input) (wx:message-box (format "found bad pref: ~n~a" input)
"Preferences"))]) "Preferences"))])
(let loop ([input input]) (let loop ([input (call-with-input-file preferences-filename
read)])
(cond (cond
[(pair? input) [(pair? input)
(let/ec k (let/ec k