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

Add prefab structs to match grammar

Browse Source
This commit is contained in:
Asumu Takikawa 2015-08-07 19:08:21 -04:00
parent fe2e480ef1
commit 9f682a3f11
2 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
pkgs/racket-doc/scribblings/reference/match-grammar.rkt
View File

@ -50,6 +50,7 @@ qp ::= literal @match literal
| (qp ooo . qp) @match qps beginning with repeated qp | (qp ooo . qp) @match qps beginning with repeated qp
| #(qp ...) @match vector of qps | #(qp ...) @match vector of qps
| #&qp @match boxed qp | #&qp @match boxed qp
| #s(prefab-key qp ...) @match prefab struct with qp fields
| ,pat @match pat | ,pat @match pat
| ,@(LIST lvp ...) @match lvps, spliced | ,@(LIST lvp ...) @match lvps, spliced
| ,@(LIST-REST lvp ... pat) @match lvps plus pat, spliced | ,@(LIST-REST lvp ... pat) @match lvps plus pat, spliced

4
pkgs/racket-doc/scribblings/reference/match-parse.rkt
View File

@ -58,6 +58,10 @@
(list->vector (map fixup-sexp (vector->list s)))] (list->vector (map fixup-sexp (vector->list s)))]
[(box? s) [(box? s)
(box (fixup-sexp (unbox s)))] (box (fixup-sexp (unbox s)))]
[(struct? s)
(apply make-prefab-struct
(prefab-struct-key s)
(cdr (map fixup-sexp (vector->list (struct->vector s)))))]
[(symbol? s) [(symbol? s)
(case s (case s
[(lvp pat qp literal ooo datum struct-id [(lvp pat qp literal ooo datum struct-id