From e7fa8fbc2f922e3f2a851d53a5e8f5eff21a15c3 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Mon, 28 Mar 2016 16:41:56 -0700
Subject: [PATCH] peg.ebnf: reset qualified-vocabs so FROM: statements don't
 leak.

---
 basis/peg/ebnf/ebnf.factor | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/basis/peg/ebnf/ebnf.factor b/basis/peg/ebnf/ebnf.factor
index 402dba49fa..a46977d957 100644
--- 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 ;