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