diff options
Diffstat (limited to 'lib/csc/assert.csc')
| -rw-r--r-- | lib/csc/assert.csc | 11 |
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))))))) |
