From b9fb8b5155a309b478ba92fb3b6703868cd490cc Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 5 Aug 2008 03:12:56 +0000 Subject: [PATCH] removed buggy change that I accidentally committed when experimenting with SamTH's comments svn: r11076 --- collects/drscheme/private/debug.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/drscheme/private/debug.ss b/collects/drscheme/private/debug.ss index 06b4f6bf48..34275a5204 100644 --- a/collects/drscheme/private/debug.ss +++ b/collects/drscheme/private/debug.ss @@ -269,7 +269,7 @@ profile todo: ;; error-display-handler/stacktrace : string any (listof srcloc) -> void (define (error-display-handler/stacktrace msg exn [pre-stack #f]) - (let* ([stack (or ;pre-stack + (let* ([stack (or pre-stack (if (exn? exn) (map cdr (filter cdr (continuation-mark-set->context (exn-continuation-marks exn)))) '()))]