6 lines
235 B
Text
6 lines
235 B
Text
(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)))
|