(define-syntax assert (syntax-rules () ((_ expr) (if expr #t (error "Assertion failed" (quote expr))))))