--- a/PPListParser.st	Wed Nov 19 10:52:37 2014 +0000
+++ b/PPListParser.st	Mon Nov 24 00:09:23 2014 +0000
@@ -19,37 +19,12 @@
 !
 
 withAll: aCollection
-	^ self basicNew setParsers: aCollection
+	^ self basicNew initialize;
+		setParsers: aCollection
 ! !
 
-!PPListParser methodsFor:'*petitanalyzer-matching'!
 
-copyInContext: aDictionary seen: aSeenDictionary
-	| copy copies |
-	aSeenDictionary at: self ifPresent: [ :value | ^ value ].
-	copy := aSeenDictionary at: self put: self copy.
-	copies := OrderedCollection new.
-	parsers do: [ :each |
-		| result |
-		result := each 
-			copyInContext: aDictionary
-			seen: aSeenDictionary.
-		result isCollection
-			ifTrue: [ copies addAll: result ]
-			ifFalse: [ copies add: result ] ].
-	^ copy
-		setParsers: copies;
-		yourself
-! !
 
-!PPListParser methodsFor:'*petitanalyzer-transforming'!
-
-replace: aParser with: anotherParser
-	super replace: aParser with: anotherParser.
-	parsers keysAndValuesDo: [ :index :parser |
-		parser == aParser
-			ifTrue: [ parsers at: index put: anotherParser ] ]
-! !
 
 !PPListParser methodsFor:'accessing'!