From 8e5ccd32399f6feae7bc2444149170b8834c7433 Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Wed, 7 Dec 2016 16:28:50 -0500 Subject: [PATCH] syntax/parse: improve minimatch stx errors --- racket/collects/syntax/parse/private/minimatch.rkt | 2 ++ 1 file changed, 2 insertions(+) diff --git a/racket/collects/syntax/parse/private/minimatch.rkt b/racket/collects/syntax/parse/private/minimatch.rkt index 4992aeecc9..e35321bec6 100644 --- a/racket/collects/syntax/parse/private/minimatch.rkt +++ b/racket/collects/syntax/parse/private/minimatch.rkt @@ -87,6 +87,8 @@ (let ([xps (cdr (vector->list (struct->vector x)))]) (match-p xps (list p ...) success failure)) failure)))] + [(match-p x pattern success failure) + (raise-syntax-error 'minimatch "bad pattern" #'pattern)] )) (define-syntax match-p*