From 88e93446b20b3d9a918bdf8e013fa6b5b641c02b Mon Sep 17 00:00:00 2001
From: Chris Double <chris.double@double.co.nz>
Date: Wed, 28 Nov 2007 11:46:06 +1300
Subject: [PATCH] Add EBNF: word

---
 extra/peg/ebnf/ebnf.factor | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/extra/peg/ebnf/ebnf.factor b/extra/peg/ebnf/ebnf.factor
index 2f71ff961b..5061e9ee3c 100644
--- a/extra/peg/ebnf/ebnf.factor
+++ b/extra/peg/ebnf/ebnf.factor
@@ -108,11 +108,13 @@ DEFER: 'rhs'
   3array seq [ first2 <ebnf-rule> ] action ;
 
 : 'ebnf' ( -- parser )
-  'rule' sp ";" token sp hide list-of [ <ebnf> ] action ;
+  'rule' sp "." token sp hide list-of [ <ebnf> ] action ;
 
 : ebnf>quot ( string -- quot )
   'ebnf' parse [
      parse-result-ast ebnf-compile  
    ] [
     f
-   ] if* ;
\ No newline at end of file
+   ] if* ;
+
+: EBNF: ";" parse-tokens "" join ebnf>quot call ; parsing
\ No newline at end of file