From 9b7e2bacc960c03ff28780b0a469018a098b5540 Mon Sep 17 00:00:00 2001
From: Chris Double <chris@bethia.(none)>
Date: Thu, 19 Jun 2008 14:44:13 +1200
Subject: [PATCH] Throw an error if there are duplicate rules in ebnf

---
 extra/peg/ebnf/ebnf.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/extra/peg/ebnf/ebnf.factor b/extra/peg/ebnf/ebnf.factor
index 2aec8b9aea..e78757be34 100644
--- a/extra/peg/ebnf/ebnf.factor
+++ b/extra/peg/ebnf/ebnf.factor
@@ -305,7 +305,7 @@ M: ebnf (transform) ( ast -- parser )
 M: ebnf-rule (transform) ( ast -- parser )
   dup elements>> 
   (transform) [
-    swap symbol>> set
+    swap symbol>> dup get [ "Rule '" over append "' defined more than once" append throw ] [ set ] if
   ] keep ;
 
 M: ebnf-sequence (transform) ( ast -- parser )