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

removed buggy change that I accidentally committed when experimenting with SamTH's comments

Browse Source 
svn: r11076
This commit is contained in:
Robby Findler 2008-08-05 03:12:56 +00:00
parent 38c7cbd6de
commit b9fb8b5155
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -269,7 +269,7 @@ profile todo:
;; error-display-handler/stacktrace : string any (listof srcloc) -> void ;; error-display-handler/stacktrace : string any (listof srcloc) -> void
(define (error-display-handler/stacktrace msg exn [pre-stack #f]) (define (error-display-handler/stacktrace msg exn [pre-stack #f])
(let* ([stack (or ;pre-stack (let* ([stack (or pre-stack
(if (exn? exn) (if (exn? exn)
(map cdr (filter cdr (continuation-mark-set->context (exn-continuation-marks exn)))) (map cdr (filter cdr (continuation-mark-set->context (exn-continuation-marks exn))))
'()))] '()))]