Use || in peg choice code generation

diff --git a/extra/peg/peg.factor b/extra/peg/peg.factor
index d1302107ea8d0dc5ee211f4bf16d8e24f20a55ca..eec4007c02d5eec672d420d65deb6110c95df217 100755 (executable)
--- a/extra/peg/peg.factor
+++ b/extra/peg/peg.factor
@@ -421,9 +421,10 @@ TUPLE: choice-parser parsers ;
 
 M: choice-parser (compile) ( peg -- quot )
   [ 
-    f ,
-    parsers>> [ compiled-parser ] map 
-    unclip 1quotation , \ unless* , [ 1quotation [ merge-errors ] compose , \ unless* , ] each
+    [
+      parsers>> [ compiled-parser ] map 
+      unclip 1quotation , [ 1quotation [ merge-errors ] compose , ] each
+    ] { } make , \ || ,
   ] [ ] make ;
 
 TUPLE: repeat0-parser p1 ;