@leroysheep / rag-system
Code Commits Pulls CI/CD 81,972
jch
bisect jch maint master next seen test todo
text 6 lines 235 Bytes
Raw
1 (module A
2 (export with-display-exception)
3 (extern (display-exception display-exception))
4 (def (with-display-exception thunk) RIGHT
5 (with-catch (lambda (e) (display-exception e (current-error-port)) e)
6 thunk ChangeMe)))