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

4
collects/mred/prefs.ss
View File

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