Delegate cleaning to index

ApptiveGrid · Dec 23, 2024 · afb78f3 · afb78f3
1 parent 8cdc91a
commit afb78f3
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 4 deletions.
diff --git a/src/Soil-Core/SoilIndex.class.st b/src/Soil-Core/SoilIndex.class.st
@@ -91,6 +91,14 @@ SoilIndex >> basicAt: key put: anObject [
 		put: anObject 
 ]
 
+{ #category : #'as yet unclassified' }
+SoilIndex >> cleanUpToVersion: version [
+	SoilIndexCleaner new 
+			index: self;
+			readVersion: version;
+			clean.
+]
+
 { #category : #'open/close' }
 SoilIndex >> close [
 	self store close.

diff --git a/src/Soil-Core/SoilIndexManager.class.st b/src/Soil-Core/SoilIndexManager.class.st
@@ -75,10 +75,7 @@ SoilIndexManager >> dirtyIndexes [
 SoilIndexManager >> flush [
 
 	dirtyIndexes copy do: [ :index | 
-		SoilIndexCleaner new 
-			index: index;
-			readVersion: (self soil transactionManager smallestReadVersion);
-			clean.
+		index cleanUpToVersion: (self soil transactionManager smallestReadVersion).
 		index dirtyPages ifEmpty: [ dirtyIndexes remove: index ] ]
 ]