peg.ebnf: reset qualified-vocabs so FROM: statements don't leak.
parent
14953f641f
commit
e7fa8fbc2f
|
@ -470,7 +470,9 @@ ERROR: bad-effect quot effect ;
|
||||||
[ parser>> (transform) ]
|
[ parser>> (transform) ]
|
||||||
[ code>> insert-escapes ]
|
[ code>> insert-escapes ]
|
||||||
[ parser>> ] tri build-locals
|
[ parser>> ] tri build-locals
|
||||||
string-lines parse-lines ;
|
qualified-vocabs length
|
||||||
|
[ string-lines parse-lines ] dip
|
||||||
|
qualified-vocabs set-length ;
|
||||||
|
|
||||||
M: ebnf-action (transform) ( ast -- parser )
|
M: ebnf-action (transform) ( ast -- parser )
|
||||||
ebnf-transform check-action-effect action ;
|
ebnf-transform check-action-effect action ;
|
||||||
|
|
Loading…
Reference in New Issue