@leroysheep / Socializer
Code Commits Pulls CI/CD 82,037
test
bisect jch maint master next seen test todo
text 6 lines 235 Bytes
Raw
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)))