have to make calls to truncate conditional on the version of Rowan be…

…ing used ..
GsDevKit · Oct 25, 2023 · 1bffc24 · 1bffc24
1 parent 1c5ab31
commit 1bffc24
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 3 deletions.
diff --git a/src/GsDevKit_stones-Core.package/GDKAbstractRegistryStore.class/instance/exportTo..st b/src/GsDevKit_stones-Core.package/GDKAbstractRegistryStore.class/instance/exportTo..st
@@ -2,5 +2,6 @@ export
 exportTo: fileRef
 	fileRef
 		writeStreamDo: [ :fileStream | 
-			fileStream truncate.
+			Rowan version >= ('3.0.0' asRwGemStoneVersionNumber)
+				ifTrue: [ fileStream truncate ].
 			STON put: self onStreamPretty: fileStream ]
diff --git a/src/GsDevKit_stones-Core.package/GDKRegistry.class/class/newRegistryNamed.ensure..st b/src/GsDevKit_stones-Core.package/GDKRegistry.class/class/newRegistryNamed.ensure..st
@@ -18,7 +18,8 @@ newRegistryNamed: registryName ensure: ensure
 	stonesRegistry at: registryName put: stoneRegistry registryPath.
 	self configFile
 		writeStreamDo: [ :fileStream | 
-			fileStream truncate.
+			Rowan version >= ('3.0.0' asRwGemStoneVersionNumber)
+				ifTrue: [ fileStream truncate ].
 			STON put: stonesRegistry onStreamPretty: fileStream ].
 	stoneRegistry export.
 	^ stoneRegistry
diff --git a/src/GsDevKit_stones-Core.package/GDKRegistry.class/instance/export.st b/src/GsDevKit_stones-Core.package/GDKRegistry.class/instance/export.st
@@ -2,5 +2,6 @@ export
 export
 	self class configFile
 		writeStreamDo: [ :fileStream | 
-			fileStream truncate.
+			Rowan version >= ('3.0.0' asRwGemStoneVersionNumber)
+				ifTrue: [ fileStream truncate ].
 			STON put: self onStreamPretty: fileStream ].