better error message when a game fails

svn: r16444
2009-10-28 16:03:44 +00:00 · 2009-10-28 16:03:44 +00:00 · 3c1fa0e0e1
commit 3c1fa0e0e1
parent 834d6f88c3
1 changed files with 6 additions and 1 deletions
--- a/collects/games/main.ss
+++ b/collects/games/main.ss
@ -39,7 +39,12 @@
       (with-handlers ([exn? (lambda (e)
                               (message-box (format "Error in \"~a\""
                                                    (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))))))

 (define games