diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-03-21 21:19:50 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-03-21 21:19:50 +0100 |
commit | ecb92a54a8c2dce5f60765f3dece4223b9ff856a (patch) | |
tree | f9ec6a8d2370727f87b57b5d100368c1d3f44919 /exceptions.scm | |
parent | Add filter-sorted-stream. (diff) | |
download | calp-ecb92a54a8c2dce5f60765f3dece4223b9ff856a.tar.gz calp-ecb92a54a8c2dce5f60765f3dece4223b9ff856a.tar.xz |
Fixed recurrence code.
Diffstat (limited to '')
-rw-r--r-- | exceptions.scm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/exceptions.scm b/exceptions.scm new file mode 100644 index 00000000..027c75ee --- /dev/null +++ b/exceptions.scm @@ -0,0 +1,5 @@ +(define-module (exceptions) + #:export (throw-returnable)) + +(define-syntax-rule (throw-returnable symb args ...) + (call/cc (lambda (cont) (throw symb cont args ...)))) |