From 9fe4f5ed934cb58e47121455afb6c3326ab440ff Mon Sep 17 00:00:00 2001
From: Jay McCarthy <jay@racket-lang.org>
Date: Sun, 5 Feb 2006 19:55:16 +0000
Subject: [PATCH] pr7869 errortrace

svn: r2130
---
 collects/web-server/util.ss | 10 +++-------
 1 file changed, 3 insertions(+), 7 deletions(-)

diff --git a/collects/web-server/util.ss b/collects/web-server/util.ss
index 5c7df263f0..a21fc88221 100644
--- a/collects/web-server/util.ss
+++ b/collects/web-server/util.ss
@@ -68,15 +68,11 @@
         (build-path base path)))
   
   ;; exn->string : (union exn any) -> string
-  ;; builds an error message, including errortrace annotations (if present)
-  ;; TODO: do we really need this? Ask Robby about better ways to print exceptions.
   (define (exn->string exn)
     (if (exn? exn)
-        (let ([op (open-output-string)])
-          (display (exn-message exn) op)
-          (newline op)
-          (print-error-trace op exn)
-          (get-output-string op))
+        (parameterize ([current-error-port (open-output-string)])
+          ((error-display-handler) (exn-message exn) exn)
+          (get-output-string (current-error-port)))
         (format "~s\n" exn)))
   
   ; lowercase-symbol! : (union string bytes) -> symbol