--- a/PPRepeatingParser.st	Mon Nov 03 09:10:56 2014 +0000
+++ b/PPRepeatingParser.st	Mon Nov 03 11:28:44 2014 +0000
@@ -29,6 +29,7 @@
 
 
 
+
 !PPRepeatingParser methodsFor:'accessing'!
 
 max
@@ -63,24 +64,6 @@
 	max := aMaxInteger
 ! !
 
-!PPRepeatingParser methodsFor:'parsing'!
-
-parseOn: aStream
-	| start element elements |
-	start := aStream position.
-	elements := OrderedCollection new.
-	[ elements size < min ] whileTrue: [
-		(element := parser parseOn: aStream) isPetitFailure ifTrue: [
-			aStream position: start.
-			^ element ].
-		elements addLast: element ].
-	[ elements size < max ] whileTrue: [
-	 	(element := parser parseOn: aStream) isPetitFailure
-			ifTrue: [ ^ elements asArray ].
-		elements addLast: element ].
-	^ elements asArray
-! !
-
 !PPRepeatingParser methodsFor:'printing'!
 
 printOn: aStream