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

better error message when a game fails

Browse Source 
svn: r16444
This commit is contained in:
Robby Findler 2009-10-28 16:03:44 +00:00
parent 834d6f88c3
commit 3c1fa0e0e1
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/games/main.ss
View File

@ -39,7 +39,12 @@
(with-handlers ([exn? (lambda (e) (with-handlers ([exn? (lambda (e)
(message-box (format "Error in \"~a\"" (message-box (format "Error in \"~a\""
(game-name game)) (game-name game))
(exn-message e) f '(ok)))]) (let ([ep (open-output-string)])
(parameterize ([current-error-port ep])
((error-display-handler) (exn-message e) e))
(get-output-string ep))
f
'(ok)))])
(run)))))) (run))))))
(define games (define games