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

better regexp

Browse Source
This commit is contained in:
Matthew Butterick 2016-05-06 13:48:55 -07:00
parent 87f5b186a2
commit feec0f85d5
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
brag/brag/rules/parser.rkt
View File

@ -91,8 +91,7 @@
;; angles indicate splicing. set splice value to #t
[(RULE_HEAD_HIDDEN pattern)
(begin
(begin
(define trimmed (cadr (regexp-match #px"<(\\w+)>\\s*:$" $1)))
(define trimmed (regexp-match #px"<(.+)>\\s*:$" $1))
(rule (position->pos $1-start-pos)
(position->pos $2-end-pos)
(lhs-id (position->pos $1-start-pos)
@ -102,7 +101,7 @@
(position-col $1-start-pos))
trimmed
#t)
$2)))]]
$2))]]
[pattern
[(implicit-pattern-sequence PIPE pattern)