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

fixed PR 8503

Browse Source 
svn: r5484
This commit is contained in:
Robby Findler 2007-01-28 14:37:56 +00:00
parent d9f93ce15c
commit e14bd3c636
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -254,7 +254,10 @@ TODO
;; give break exn's a free pass on this one.
;; sometimes they get raised in a funny place.
;; (see call-with-break-parameterization below)
(fprintf (current-error-port) "ACK! didn't find drscheme's stackframe when filtering\n"))
(unless (null? initial-stack)
;; sometimes, mzscheme just doesn't have any backtrace all. in that case,
;; don't print anything either.
(fprintf (current-error-port) "ACK! didn't find drscheme's stackframe when filtering\n")))
initial-stack]
[else
(let ([top (car stack)])