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


M: ebnf-action ebnf-compile ( ast -- quot )
  [
    ebnf-action-quot , \ action , 
  ] [ ] make ;

M: vector ebnf-compile ( ast -- quot )

TUPLE: ebnf-sequence elements ;
TUPLE: ebnf-repeat0 group ;
TUPLE: ebnf-rule symbol elements ;
TUPLE: ebnf-action word ;
TUPLE: ebnf rules ;

C: <ebnf-non-terminal> ebnf-non-terminal
