From 12ff0614e60a2f7f45f67e175ba0ca0c8fbf1f5c Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Sun, 2 Dec 2007 07:19:01 -0500
Subject: [PATCH] Simpler 'union' parser

---
 extra/regexp/regexp.factor | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/extra/regexp/regexp.factor b/extra/regexp/regexp.factor
index 1de1d9b16e..d377085018 100644
--- a/extra/regexp/regexp.factor
+++ b/extra/regexp/regexp.factor
@@ -173,9 +173,7 @@ C: <group-result> group-result
 : 'simple' 'term' 'repetition' 'interval' <|> <|> ;
 
 LAZY: 'union' ( -- parser )
-    'simple'
-    'simple' "|" token nonempty-list-of [ <or-parser> ] <@
-    <|> ;
+    'simple' "|" token nonempty-list-of [ <or-parser> ] <@ ;
 
 LAZY: 'regexp' ( -- parser )
     'repetition' 'union' <|> ;