|
|
|
@ -170,7 +170,7 @@
|
|
|
|
[(and range? max) (string->number max)]
|
|
|
|
[(and range? max) (string->number max)]
|
|
|
|
[(and (not range?) (not max)) (if (zero? min)
|
|
|
|
[(and (not range?) (not max)) (if (zero? min)
|
|
|
|
#f ; {} -> {0,}
|
|
|
|
#f ; {} -> {0,}
|
|
|
|
min))] ; {3} -> {3,3}
|
|
|
|
min)] ; {3} -> {3,3}
|
|
|
|
[else #f])])
|
|
|
|
[else #f])])
|
|
|
|
(cons min max))]))]
|
|
|
|
(cons min max))]))]
|
|
|
|
[else (raise-argument-error 'grammar-parse "unknown repetition operator" $2)]))
|
|
|
|
[else (raise-argument-error 'grammar-parse "unknown repetition operator" $2)]))
|
|
|
|
|
