diff options
Diffstat (limited to 'exceptions.scm')
-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 ...)))) |