(define-syntax expect-error
  (syntax-rules ()
    ((_ expr (kind ...))
     (expect (condition-case (begin expr #f)
               ((kind ...) #t) (exn () (signal exn)))))))