mbutterick
/
br-parser-tools
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Fixes bug demonstrated by previous commit.

Browse Source 
Now (repetition 1 1 e) is a charset if e is a charset, but other number
of repetitions are not.
pull/6/head
Jesse A. Tov 5 years ago committed by Matthew Butterick
parent 0eecc81e6c
commit f8c3f37646
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File

2
br-parser-tools-lib/br-parser-tools/private-lex/stx.rkt
Unescape Escape View File

@ -134,7 +134,7 @@
[(list? s-re) (case (car s-re) [(list? s-re) (case (car s-re)
[(union intersection) (andmap char-set? (cdr s-re))] [(union intersection) (andmap char-set? (cdr s-re))]
[(char-range char-complement) #t] [(char-range char-complement) #t]
[(repetition) (and (= (cadr s-re) (caddr s-re)) (char-set? (cadddr s-re)))] [(repetition) (and (= 1 (cadr s-re) (caddr s-re)) (char-set? (cadddr s-re)))]
[(concatenation) (and (= 2 (length s-re)) (char-set? (cadr s-re)))] [(concatenation) (and (= 2 (length s-re)) (char-set? (cadr s-re)))]
(else #f))] (else #f))]
[else #f])) [else #f]))

Write Preview
Loading…
Cancel
Save