Merge branch 'ml/doc-merge-updates' into maint-2.43
[alt-git.git] / t / t4018 / scheme-module
blobedfae0ebf7b0f79b2d5abe304a2d42a1731cbc17
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)))