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

PR 9186

Browse Source 
svn: r8601
This commit is contained in:
Robby Findler 2008-02-09 14:52:01 +00:00
parent f22f94b345
commit a1b8ba51ad
2 changed files with 84 additions and 81 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/drscheme/private/debug.ss
View File

@ -495,7 +495,10 @@ profile todo:
;; (listof srcloc?) ;; (listof srcloc?)
;; -> ;; ->
;; void ;; 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) (reset-backtrace-window)
(letrec ([text (make-object (text:wide-snip-mixin text:hide-caret/selection%))] (letrec ([text (make-object (text:wide-snip-mixin text:hide-caret/selection%))]
[mf-bday-note (when (mf-bday?) [mf-bday-note (when (mf-bday?)
@ -574,7 +577,7 @@ profile todo:
(send text set-position 0 0) (send text set-position 0 0)
(send text lock #t) (send text lock #t)
(send text hide-caret #t) (send text hide-caret #t)
(send current-backtrace-window show #t))) (send current-backtrace-window show #t))))
;; show-frame : (instanceof editor-canvas%) ;; show-frame : (instanceof editor-canvas%)
;; (instanceof text%) ;; (instanceof text%)

2
collects/drscheme/private/tool-contracts.ss
View File

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