csc/assert.csc


1
2
3
4
5
6
7
8
9
10
11

(define-library (csc assert)
  (export assert)
  (import (scheme base))
  (begin


    (define-syntax assert
      (syntax-rules ()
        ((assert condition)
          (unless condition
            (error "assertion failed" 'condition)))))))