blob: edfae0ebf7b0f79b2d5abe304a2d42a1731cbc17 (
plain)
1
2
3
4
5
6
|
(module A RIGHT
(export with-display-exception)
(extern (display-exception display-exception ChangeMe))
(def (with-display-exception thunk)
(with-catch (lambda (e) (display-exception e (current-error-port)) e)
thunk)))
|