;; @ignore ;; Like p:match, but fails with an error message if the pattern doesn't match. (define (p:assert-match pattern datum) (or (p:match pattern datum) (error "Pattern matching failed.")))