Added more uses of transact:

ba-st · Feb 8, 2024 · 41b984a · 41b984a
1 parent 2d3a1ff
commit 41b984a
Showing 1 changed file with 12 additions and 8 deletions.
diff --git a/source/Sagan-GemStone/GemStoneRepository.class.st b/source/Sagan-GemStone/GemStoneRepository.class.st
@@ -65,19 +65,23 @@ GemStoneRepository >> findAllMatching: aCriteriaOrBlock sortedBy: aSortFunction
 { #category : 'configuring' }
 GemStoneRepository >> indexByEquality: aPath typed: aType [
 
-	GsIndexSpec new
-		equalityIndex: ( 'each.<1s>' expandMacrosWith: aPath )
-		lastElementClass: aType
-		options: self saganGemStoneIndexOptions;
-		createIndexesOn: contents
+	self transact: [
+		GsIndexSpec new
+			equalityIndex: ( 'each.<1s>' expandMacrosWith: aPath )
+			lastElementClass: aType
+			options: self saganGemStoneIndexOptions;
+			createIndexesOn: contents
+		]
 ]
 
 { #category : 'configuring' }
 GemStoneRepository >> indexByIdentity: aPath [
 
-	GsIndexSpec new
-		identityIndex: ( 'each.<1s>' expandMacrosWith: aPath ) options: self saganGemStoneIndexOptions;
-		createIndexesOn: contents
+	self transact: [
+		GsIndexSpec new
+			identityIndex: ( 'each.<1s>' expandMacrosWith: aPath ) options: self saganGemStoneIndexOptions;
+			createIndexesOn: contents
+		]
 ]
 
 { #category : 'initialization' }