diff options
Diffstat (limited to 'module/exceptions.scm')
-rw-r--r-- | module/exceptions.scm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/module/exceptions.scm b/module/exceptions.scm new file mode 100644 index 00000000..027c75ee --- /dev/null +++ b/module/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 ...)))) |