From c802c34b9bf13f437ebaaece7c5366cbc91276f4 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Tue, 3 Mar 2009 17:29:38 +0000
Subject: [PATCH] disabled the stacktrace trimming

svn: r13916
---
 collects/drscheme/private/rep.ss | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/collects/drscheme/private/rep.ss b/collects/drscheme/private/rep.ss
index 110cb23119..96bd20a34b 100644
--- a/collects/drscheme/private/rep.ss
+++ b/collects/drscheme/private/rep.ss
@@ -232,6 +232,8 @@ TODO
   
   (define (cut-out-top-of-stack 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])
         (cond
           [(null? stack)