peg.ebnf: reset qualified-vocabs so FROM: statements don't leak.

diff --git a/basis/peg/ebnf/ebnf.factor b/basis/peg/ebnf/ebnf.factor
index 402dba49fa06842915ecaf6a3f40085133d9e90a..a46977d957861d1d782c25e256dc70b85e572e8e 100644 (file)
--- a/basis/peg/ebnf/ebnf.factor
+++ b/basis/peg/ebnf/ebnf.factor
@@ -470,7 +470,9 @@ ERROR: bad-effect quot effect ;
     [ parser>> (transform) ]
     [ code>> insert-escapes ]
     [ 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 )
     ebnf-transform check-action-effect action ;