     name>> % " [ dup ] " %
     " | " %
     %  
-    " ]" %     
+    " nip ]" %     
   ] "" make ;
 
 M: object build-locals ( code ast -- )

        ] 2each
        " | " %
        %  
        " ]" %     
    ] "" make 
  ] if ;


USING: kernel compiler.units parser words arrays strings math.parser sequences 
       quotations vectors namespaces math assocs continuations peg
       peg.parsers unicode.categories multiline combinators combinators.lib 
       splitting accessors effects sequences.deep peg.search inference 
       io.streams.string io prettyprint ;
IN: peg.ebnf

TUPLE: ebnf-non-terminal symbol ;
