(define-macro (error) (assert t)) (define-macro (test) `(begin (+ 1 1) (error) (+ 1 1))) (test) (assert t)
