(define-syntax-rule (assert c)
  (when (not c)
    (display "Assertion `")
    (display #'c)
    (displayln "' failed.")
    (raise 'AssertionError)))


(assert (< 3 4))
(assert (= 4 5))