diff --git a/src/Chanel/Chanel.class.st b/src/Chanel/Chanel.class.st index 4dff9f4..cc438b9 100644 --- a/src/Chanel/Chanel.class.st +++ b/src/Chanel/Chanel.class.st @@ -173,7 +173,7 @@ Chanel >> clean [ { #category : #protocols } Chanel >> cleanCloseProtocols [ | methods | - methods := self localMethods. + methods := self localMethodsWithoutExtensions. self protocolsToCleanMap keysAndValuesDo: [ :olds :new | methods do: [ :meth | (olds includes: meth protocol) ifTrue: [ meth protocol: new ] ] ] ] @@ -201,7 +201,7 @@ Chanel >> cleanEqualityTest [ { #category : #protocols } Chanel >> cleanProtocols [ | methods protocolsMap | - methods := self localMethods. + methods := self localMethodsWithoutExtensions. self cleanCloseProtocols. @@ -299,6 +299,11 @@ Chanel >> localMethods [ ^ (packages flatCollect: #methods) reject: #isFromTrait ] +{ #category : #accessing } +Chanel >> localMethodsWithoutExtensions [ + ^ self localMethods reject: #isExtension +] + { #category : #accessing } Chanel >> methodsInSpecificProtocolMap [ ^ self class methodsInSpecificProtocolMap