summaryrefslogtreecommitdiff
path: root/t/t4018/scheme-module
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)))