     ebnf-terminal-symbol , \ token ,
   ] [ ] make ;
 
+M: ebnf-non-terminal ebnf-compile ( ast -- quot )
+  [
+    ebnf-non-terminal-symbol in get lookup ,
+  ] [ ] make ;
+
 M: ebnf-choice ebnf-compile ( ast -- quot )
   [
     [

      ] each
    ] { } make ,
    [ call ] , \ map , \ seq , 
  ] [ ] make ;

DEFER: 'rhs'

! Copyright (C) 2007 Chris Double.
! See http://factorcode.org/license.txt for BSD license.
USING: kernel parser words arrays strings math.parser sequences namespaces peg ;
IN: peg.ebnf

TUPLE: ebnf-non-terminal symbol ;
