From d46183860c1f3f10095e95023adcb79b1896ab0e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Fri, 22 Mar 2019 20:11:11 +0100
Subject: Move C and Scheme code into subdirs.

---
 module/exceptions.scm | 5 +++++
 1 file changed, 5 insertions(+)
 create mode 100644 module/exceptions.scm

(limited to 'module/exceptions.scm')

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 ...))))
-- 
cgit v1.2.3