aboutsummaryrefslogtreecommitdiffstats
path: root/lib/csc/assert.csc
diff options
context:
space:
mode:
Diffstat (limited to 'lib/csc/assert.csc')
-rw-r--r--lib/csc/assert.csc11
1 files changed, 11 insertions, 0 deletions
diff --git a/lib/csc/assert.csc b/lib/csc/assert.csc
new file mode 100644
index 0000000..84d2096
--- /dev/null
+++ b/lib/csc/assert.csc
@@ -0,0 +1,11 @@
+(define-library (csc assert)
+ (export assert)
+ (import (scheme base))
+ (begin
+
+
+ (define-syntax assert
+ (syntax-rules ()
+ ((assert condition)
+ (unless condition
+ (error "assertion failed" 'condition)))))))