[feenkcom/gtoolkit#4072] Switch storing refactored methods in a singl…

…e package to making the change in-place.
feenkcom · Oct 15, 2024 · 944b8dc · 944b8dc
1 parent c336ca7
commit 944b8dc
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 2 deletions.
diff --git a/src/GToolkit-Pharo-StrictSymbolComparison/GtStrictSymbolInstallation.class.st b/src/GToolkit-Pharo-StrictSymbolComparison/GtStrictSymbolInstallation.class.st
@@ -25,7 +25,7 @@ GtStrictSymbolInstallation >> initializeFfiCallout [
 { #category : #'as yet unclassified' }
 GtStrictSymbolInstallation >> installFromFile: aFileReference [
 
-	self createExtensionPackage.
+	"self createExtensionPackage."
 	self loadEqualityStatsFromFile: aFileReference.
 	self refactorEqualityCalls.
 	"self refactorDictionaryReferences.

diff --git a/src/GToolkit-Pharo-StrictSymbolComparison/GtStrictSymbolRefactor.class.st b/src/GToolkit-Pharo-StrictSymbolComparison/GtStrictSymbolRefactor.class.st
@@ -231,11 +231,14 @@ GtStrictSymbolRefactor >> originalAst [
 
 { #category : #'as yet unclassified' }
 GtStrictSymbolRefactor >> refactor [
+	| protocol |
 
+	"protocol := self class refactoredExtensionPackageName."
+	protocol := self method protocol.
 	(self shouldRefactor and: [ self isChanged ]) ifFalse: [ ^ self ].
 	self method methodClass
 		compile: self refactoredAst sourceCode
-		classified: self class refactoredExtensionPackageName.
+		classified: protocol.
 ]
 
 { #category : #refactoring }