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

added a little more info to message

Browse Source 
svn: r5248
This commit is contained in:
Robby Findler 2007-01-07 20:29:09 +00:00
parent ff2769ad95
commit 9b56738700
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/drscheme/private/tools.ss
View File

@ -221,8 +221,8 @@
title]) title])
((error-display-handler) ((error-display-handler)
(if (exn? x) (if (exn? x)
(format "~a" (exn-message x)) (format "~a\n\n~a" title (exn-message x))
(format "uncaught exception: ~s" x)) (format "~a\n\nuncaught exception: ~s" title x))
x))) x)))