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

error handler now uses Guillaume's rewrites

Browse Source
This commit is contained in:
Matthias Felleisen 2012-03-12 22:49:10 -04:00
parent 1d894852a4
commit abfc3de9ba
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/htdp/bsl/runtime.rkt
View File

@ -2,6 +2,7 @@
(require mzlib/pconvert (require mzlib/pconvert
racket/pretty racket/pretty
lang/private/set-result lang/private/set-result
lang/private/rewrite-error-message
mrlib/image-core mrlib/image-core
racket/snip racket/snip
racket/class) racket/class)
@ -63,6 +64,12 @@
(define converted (print-convert v)) (define converted (print-convert v))
(set-handlers (set-handlers
(λ () (pretty-write converted)))))) (λ () (pretty-write converted))))))
(error-display-handler
(let ([o-d-h (error-display-handler)])
(lambda (msg exn)
(define x (get-rewriten-error-message exn))
(displayln `(hello ,x ,exn))
(o-d-h x exn))))
(let ([orig (global-port-print-handler)]) (let ([orig (global-port-print-handler)])
(global-port-print-handler (global-port-print-handler
(lambda (val port [depth 0]) (lambda (val port [depth 0])