From baca007fc0d5ad3122b7660f2930b9dd188b6c4c Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Mon, 3 May 2010 15:14:17 -0400 Subject: [PATCH] fix PR 10890 --- collects/racket/match/parse.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/racket/match/parse.rkt b/collects/racket/match/parse.rkt index 54dc1b86b1..7498812fc6 100644 --- a/collects/racket/match/parse.rkt +++ b/collects/racket/match/parse.rkt @@ -154,7 +154,7 @@ [(struct s pats) (parse-struct stx cert parse #'s #'pats)] [(s . pats) - (struct-info? (syntax-local-value #'s (lambda () #f))) + (and (identifier? #'s) (struct-info? (syntax-local-value #'s (lambda () #f)))) (parse-struct stx cert parse #'s #'pats)] [(? p q1 qs ...) (make-And (cons (make-Pred (cert #'p))