Added transact: to methods affecting the contents

ba-st · Feb 8, 2024 · 2d3a1ff · 2d3a1ff
1 parent 435530a
commit 2d3a1ff
Showing 1 changed file with 14 additions and 10 deletions.
diff --git a/source/Sagan-GemStone/GemStoneRepository.class.st b/source/Sagan-GemStone/GemStoneRepository.class.st
@@ -96,18 +96,20 @@ GemStoneRepository >> matchingCriteriaBuilder [
 { #category : 'private - management' }
 GemStoneRepository >> purgeAfterCheckingInclusion: aDomainObject [
 
-	contents remove: aDomainObject ifAbsent: [
-		DataInconsistencyFound signal:
-			( '<1p> was expected to be found in the contents, but it was not.' expandMacrosWith:
-				  aDomainObject )
-		].
-	^ aDomainObject
+	^ self transact: [
+		  contents remove: aDomainObject ifAbsent: [
+			  DataInconsistencyFound signal:
+				  ( '<1p> was expected to be found in the contents, but it was not.' expandMacrosWith:
+					    aDomainObject )
+			  ].
+		  aDomainObject
+		  ]
 ]
 
 { #category : 'management' }
 GemStoneRepository >> purgeAllMatching: aCriteriaOrBlock [
 
-	contents := contents reject: ( self asMatchingCriteria: aCriteriaOrBlock )
+	self transact: [ contents := contents reject: ( self asMatchingCriteria: aCriteriaOrBlock ) ]
 ]
 
 { #category : 'private - accessing' }
@@ -120,8 +122,10 @@ GemStoneRepository >> saganGemStoneIndexOptions [
 { #category : 'private - management' }
 GemStoneRepository >> storeAfterCheckingConflicts: aDomainObject [
 
-	contents add: aDomainObject.
-	^ aDomainObject
+	^ self transact: [
+		  contents add: aDomainObject.
+		  aDomainObject
+		  ]
 ]
 
 { #category : 'management' }
@@ -133,7 +137,7 @@ GemStoneRepository >> transact: aBlock [
 { #category : 'management' }
 GemStoneRepository >> update: aMutableDomainObject executing: aBlock [
 
-	aBlock value: aMutableDomainObject
+	self transact: [ aBlock value: aMutableDomainObject ]
 ]
 
 { #category : 'private - management' }