9 lines
227 B
Racket
9 lines
227 B
Racket
|
#lang racket/base
|
||
|
|
||
|
(provide exn->string)
|
||
|
|
||
|
(define (exn->string exn)
|
||
|
(parameterize ([current-error-port (open-output-string)])
|
||
|
((error-display-handler) (exn-message exn) exn)
|
||
|
(get-output-string (current-error-port))))
|