Do not update protocols if they are extensions

jecisc · Apr 2, 2020 · 6cff927 · 6cff927
1 parent 510bb93
commit 6cff927
Showing 1 changed file with 7 additions and 2 deletions.
diff --git 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