improved error message

svn: r7356
2007-09-16 23:21:24 +00:00 · 2007-09-16 23:21:24 +00:00 · bd7d167466
commit bd7d167466
parent 20890b1cf3
1 changed files with 4 additions and 1 deletions
--- a/collects/tests/drscheme/drscheme-test-util.ss
+++ b/collects/tests/drscheme/drscheme-test-util.ss
@ -358,7 +358,10 @@
            (fw:test:button-push "OK")
            (let ([new-frame (wait-for-new-frame language-dialog)])
              (unless (eq? new-frame drs-frame)
-                (error 'set-language-level! "didn't get drscheme frame back, got: ~s\n" new-frame)))))))) 
+                (error 'set-language-level! 
+                       "didn't get drscheme frame back, got: ~s (drs-frame ~s)\n"
+                       new-frame
+                       drs-frame)))))))) 

  (provide/contract [check-language-level ((or/c string? regexp?) . -> . void?)])
  ;; checks that the language in the drscheme window is set to the given one.