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

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

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


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

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