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

pr7869 errortrace

Browse Source 
svn: r2130
This commit is contained in:
Jay McCarthy 2006-02-05 19:55:16 +00:00
parent d333ba0f51
commit 9fe4f5ed93
1 changed files with 3 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/web-server/util.ss
View File

@ -68,15 +68,11 @@
(build-path base path))) (build-path base path)))
;; exn->string : (union exn any) -> string ;; 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) (define (exn->string exn)
(if (exn? exn) (if (exn? exn)
(let ([op (open-output-string)]) (parameterize ([current-error-port (open-output-string)])
(display (exn-message exn) op) ((error-display-handler) (exn-message exn) exn)
(newline op) (get-output-string (current-error-port)))
(print-error-trace op exn)
(get-output-string op))
(format "~s\n" exn))) (format "~s\n" exn)))
; lowercase-symbol! : (union string bytes) -> symbol ; lowercase-symbol! : (union string bytes) -> symbol