git.oblomov.eu Git - git/blob - t/t4018/scheme-module

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