From 3c1fa0e0e142eee7be5335ce6ce936982d2083fc Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Wed, 28 Oct 2009 16:03:44 +0000
Subject: [PATCH] better error message when a game fails

svn: r16444
---
 collects/games/main.ss | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/collects/games/main.ss b/collects/games/main.ss
index 29c372660a..876967130f 100644
--- 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