Simpler 'union' parser

diff --git a/extra/regexp/regexp.factor b/extra/regexp/regexp.factor
index 1de1d9b16e8ba3294439857b0d54e799bcd889dd..d377085018d7caf302b4c0dbd00052ca27443615 100644 (file)
--- 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' <|> ;