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

fixed bug

Browse Source 
original commit: 06e4de8a12c52e7d3803c1a086d50323e7e13725
This commit is contained in:
Robby Findler 1997-08-02 20:35:57 +00:00
parent 2fb859bef8
commit a9962b15bd
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

@ -235,12 +235,12 @@
(when (file-exists? preferences-filename)
(let ([err
(lambda (input)
(mred:gui-utils:message-box (format "found bad pref: ~n~a" input)
"Preferences"))])
(wx:message-box (format "found bad pref: ~n~a" input)
"Preferences"))])
(let loop ([input (with-handlers
([(lambda (exn) #t)
(lambda (exn)
(mred:gui-utils:message-box
(wx:message-box
(format "Error saving preferences~n~a"
(exn-message exn))
"Error reading preferences")