From 8542dc5812347e7f8f311bf49500207e6fab7932 Mon Sep 17 00:00:00 2001
From: Chris Double <chris.double@double.co.nz>
Date: Thu, 14 Feb 2008 10:39:37 +1300
Subject: [PATCH] Add seq* and choice* to peg

---
 extra/peg/peg.factor | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/extra/peg/peg.factor b/extra/peg/peg.factor
index 59a8b63c14..8298814017 100755
--- a/extra/peg/peg.factor
+++ b/extra/peg/peg.factor
@@ -306,9 +306,15 @@ MEMO: range ( min max -- parser )
 : seq ( seq -- parser )
   seq-parser construct-boa init-parser ;
 
+: seq* ( quot -- paser )
+  { } make seq ; inline 
+
 : choice ( seq -- parser )
   choice-parser construct-boa init-parser ;
 
+: choice* ( quot -- paser )
+  { } make choice ; inline 
+
 MEMO: repeat0 ( parser -- parser )
   repeat0-parser construct-boa init-parser ;