From 11147c7bc03c29e31f1b5eaf7e86495171ff0ef3 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Tue, 26 Feb 2008 15:17:17 -0600 Subject: [PATCH] add 2seq, 3seq --- extra/peg/peg.factor | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/extra/peg/peg.factor b/extra/peg/peg.factor index 8298814017..6e42668436 100755 --- a/extra/peg/peg.factor +++ b/extra/peg/peg.factor @@ -306,6 +306,12 @@ MEMO: range ( min max -- parser ) : seq ( seq -- parser ) seq-parser construct-boa init-parser ; +: 2seq ( parser1 parser2 -- parser ) + 2array seq ; + +: 3seq ( parser1 parser2 parser3 -- parser ) + 3array seq ; + : seq* ( quot -- paser ) { } make seq ; inline @@ -343,7 +349,7 @@ MEMO: delay ( parser -- parser ) delay-parser construct-boa init-parser ; MEMO: list-of ( items separator -- parser ) - hide over 2array seq repeat0 [ concat ] action 2array seq [ unclip 1vector swap first append ] action ; + hide over 2seq repeat0 [ concat ] action 2seq [ unclip 1vector swap first append ] action ; MEMO: 'digit' ( -- parser ) [ digit? ] satisfy [ digit> ] action ;