 
 M: ebnf-action ebnf-compile ( ast -- quot )
   [
-    ebnf-action-quot , \ action , 
+    ebnf-action-word search 1quotation , \ action , 
   ] [ ] make ;
 
 M: vector ebnf-compile ( ast -- quot )


: 'action' ( -- parser )
  "=>" token hide
  "[" token sp hide
  "]." token ensure-not [ drop t ] satisfy 2array seq [ first ] action repeat1 [ >string ] action
  "]" token "." token ensure 2array seq sp hide
  4array seq [ "[ " swap first append " ]" append eval <ebnf-action> ] action ;

: 'rhs' ( -- parser )
  'repeat0'

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

TUPLE: ebnf-non-terminal symbol ;
