From 46b0df263138251239af63ea75034e4c5ba8b90a Mon Sep 17 00:00:00 2001
From: Chris Double <chris@bethia.(none)>
Date: Thu, 10 Jul 2008 23:09:29 +1200
Subject: [PATCH] Use || in peg choice code generation

---
 extra/peg/peg.factor | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/extra/peg/peg.factor b/extra/peg/peg.factor
index d1302107ea..eec4007c02 100755
--- 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 ;