From e14bd3c636cbec23cf087137d8b750af11da7260 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sun, 28 Jan 2007 14:37:56 +0000 Subject: [PATCH] fixed PR 8503 svn: r5484 --- collects/drscheme/private/rep.ss | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/collects/drscheme/private/rep.ss b/collects/drscheme/private/rep.ss index 96893e5c2b..c3790a3164 100644 --- a/collects/drscheme/private/rep.ss +++ b/collects/drscheme/private/rep.ss @@ -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)])