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

disabled the stacktrace trimming

Browse Source 
svn: r13916
This commit is contained in:
Robby Findler 2009-03-03 17:29:38 +00:00
parent a7126e20a5
commit c802c34b9b
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -232,6 +232,8 @@ TODO
(define (cut-out-top-of-stack exn) (define (cut-out-top-of-stack exn)
(let ([initial-stack (continuation-mark-set->context (exn-continuation-marks exn))]) (let ([initial-stack (continuation-mark-set->context (exn-continuation-marks exn))])
initial-stack ;; just give up on trying to trim out DrScheme's frame's from the stack for now.
#;
(let loop ([stack initial-stack]) (let loop ([stack initial-stack])
(cond (cond
[(null? stack) [(null? stack)