Cleaning up USING: lists for new strict semantics

[factor.git] / basis / peg / ebnf / ebnf.factor

diff --git a/basis/peg/ebnf/ebnf.factor b/basis/peg/ebnf/ebnf.factor
index fafb8461471e851c43b91664b8797d3e9581fb2e..94df4ca209a4047977608f36909ae766a79cda1e 100644 (file)
--- a/basis/peg/ebnf/ebnf.factor
+++ b/basis/peg/ebnf/ebnf.factor
@@ -1,11 +1,13 @@
 ! Copyright (C) 2007 Chris Double.\r
 ! See http://factorcode.org/license.txt for BSD license.\r
-USING: kernel compiler.units words arrays strings math.parser\r
+USING: kernel words arrays strings math.parser\r
 sequences quotations vectors namespaces make math assocs\r
 continuations peg peg.parsers unicode.categories multiline\r
 splitting accessors effects sequences.deep peg.search\r
 combinators.short-circuit lexer io.streams.string stack-checker\r
-io combinators parser vocabs.parser summary ;\r
+io combinators parser summary ;\r
+FROM: compiler.units => with-compilation-unit ;\r
+FROM: vocabs.parser => search ;\r
 IN: peg.ebnf\r
 \r
 : rule ( name word -- parser )\r
@@ -441,7 +443,7 @@ M: ebnf-sequence build-locals ( code ast -- code )
       drop \r
     ] [ \r
       [\r
-        "USING: locals sequences ;  [let* | " %\r
+        "FROM: locals => [let* ; FROM: sequences => nth ; [let* | " %\r
           dup length swap [\r
             dup ebnf-var? [\r
               name>> % \r