--- a/analyzer/extensions.st	Sun Oct 05 00:05:20 2014 +0100
+++ b/analyzer/extensions.st	Sat Oct 04 21:26:15 2014 +0100
@@ -106,38 +106,6 @@
 			ifTrue: [ aBlock value: each ] ]
 ! !
 
-!PPParser methodsFor:'*petitanalyzer-enumerating'!
-
-allParsers
-	"Answer all the parse nodes of the receiver."
-
-	| result |
-	result := OrderedCollection new.
-	self allParsersDo: [ :parser | result addLast: parser ].
-	^ result
-! !
-
-!PPParser methodsFor:'*petitanalyzer-enumerating'!
-
-allParsersDo: aBlock
-	"Iterate over all the parse nodes of the receiver."
-
-	self allParsersDo: aBlock seen: IdentitySet new
-! !
-
-!PPParser methodsFor:'*petitanalyzer-enumerating'!
-
-allParsersDo: aBlock seen: aSet
-	"Iterate over all the parse nodes of the receiver, do not visit and follow the ones contained in aSet."
-
-	(aSet includes: self)
-		ifTrue: [ ^ self ].
-	aSet add: self.
-	aBlock value: self.
-	self children
-		do: [ :each | each allParsersDo: aBlock seen: aSet ]
-! !
-
 !PPParser methodsFor:'*petitanalyzer-matching'!
 
 copyInContext: aDictionary