PR 9186

svn: r8601

collects/drscheme/private/debug.ss

@@ -495,7 +495,10 @@ profile todo:
     ;;                         (listof srcloc?)
     ;;                         -> 
     ;;                         void
-    (define (show-backtrace-window error-text dis)
+    (define (show-backtrace-window error-text dis/exn)
+      (let ([dis (if (exn? dis/exn)
+                     (cms->srclocs (exn-continuation-marks dis/exn))
+                     dis/exn)])
         (reset-backtrace-window)
         (letrec ([text (make-object (text:wide-snip-mixin text:hide-caret/selection%))]
                  [mf-bday-note (when (mf-bday?)
@@ -574,7 +577,7 @@ profile todo:
           (send text set-position 0 0)
           (send text lock #t)
           (send text hide-caret #t)
-        (send current-backtrace-window show #t)))
+          (send current-backtrace-window show #t))))
     
     ;; show-frame : (instanceof editor-canvas%)
     ;;              (instanceof text%) 

collects/drscheme/private/tool-contracts.ss

@@ -353,7 +353,7 @@
   
   (drscheme:debug:show-backtrace-window
    (string?
-    (listof srcloc?)
+    (or/c exn? (listof srcloc?))
     . -> .
     void?)
    (error-message dis)