aboutsummaryrefslogtreecommitdiff
path: root/module/exceptions.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/exceptions.scm')
-rw-r--r--module/exceptions.scm5
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 ...))))