# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1393948618 -3600
# Node ID f88e1127557a7ec523bd5266d5571787bd3d647b
# Parent  d99d3e951afcda8f8e4ee6cd0eb79e0c402fb9b8
initial

diff -r d99d3e951afc -r f88e1127557a extensions.st
--- a/extensions.st	Tue Mar 04 16:55:01 2014 +0100
+++ b/extensions.st	Tue Mar 04 16:56:58 2014 +0100
@@ -32,6 +32,18 @@
     "Created: / 19-12-2010 / 18:13:19 / Jan Kurs <kurs.jan@post.cz>"
 ! !
 
+!Collection methodsFor:'*petitparser-core-converting'!
+
+asChoiceParser
+	^ PPChoiceParser withAll: (self collect: [ :each | each asParser ])
+! !
+
+!Collection methodsFor:'*petitparser-core-converting'!
+
+asSequenceParser
+	^ PPSequenceParser withAll: (self collect: [ :each | each asParser ])
+! !
+
 !Interval methodsFor:'*petitparser-converting'!
 
 asParser
@@ -153,6 +165,6 @@
 !stx_goodies_petitparser class methodsFor:'documentation'!
 
 extensionsVersion_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/petitparser/extensions.st,v 1.10 2014-03-04 15:53:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/petitparser/extensions.st,v 1.11 2014-03-04 15:56:58 cg Exp $'
 ! !