Removing integers-as-sequences

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

diff --git a/basis/peg/ebnf/ebnf.factor b/basis/peg/ebnf/ebnf.factor
index 5ddd5f9bf08e04699ac9ce3bdf16b145553b762d..ffc4cb91ad78aa462b4abbf529ac615225179e80 100644 (file)
--- a/basis/peg/ebnf/ebnf.factor
+++ b/basis/peg/ebnf/ebnf.factor
@@ -446,14 +446,14 @@ M: ebnf-sequence build-locals ( code ast -- code )
     ] [ \r
       [\r
         "FROM: locals => [let :> ; FROM: sequences => nth ; [let " %\r
-          dup length [\r
+          [\r
             over ebnf-var? [\r
               " " % # " over nth :> " %\r
               name>> % \r
             ] [\r
               2drop\r
             ] if\r
-          ] 2each\r
+          ] each-index\r
           " " %\r
           %  \r
           " nip ]" %     \r