--- 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