suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix PR 10890

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2010-05-03 15:14:17 -04:00
parent 34e64b650f
commit baca007fc0
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/racket/match/parse.rkt
View File

@ -154,7 +154,7 @@
[(struct s pats) [(struct s pats)
(parse-struct stx cert parse #'s #'pats)] (parse-struct stx cert parse #'s #'pats)]
[(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)] (parse-struct stx cert parse #'s #'pats)]
[(? p q1 qs ...) [(? p q1 qs ...)
(make-And (cons (make-Pred (cert #'p)) (make-And (cons (make-Pred (cert #'p))