Write all fields on STON

hernanmd · Jul 18, 2022 · da0136b · da0136b
1 parent 6f7a710
commit da0136b
Showing 1 changed file with 2 additions and 8 deletions.
diff --git a/smalltalksrc/VMMaker/ComposedImageWriter.class.st b/smalltalksrc/VMMaker/ComposedImageWriter.class.st
@@ -150,16 +150,10 @@ ComposedImageWriter >> writePermanentSpaceMetadata: imageFileName [
 ComposedImageWriter >> writeSTON: struct toFile: f [
 
 	<inline: true>
-	| fieldHasNilValue |
-
 	struct withStructNameDo: [ :name | self fprintf: f _: self headFormat _: name ].
 	struct withFieldsDo: [ :fieldName :fieldValue |
-		fieldValue 
-			ifNil: [ 	fieldHasNilValue := true ]
-			ifNotNil: [  
-				fieldHasNilValue := false.
-				self fprintf: f _: self fieldFormat _: fieldName _: fieldValue ]]
-		separatedBy: [ fieldHasNilValue ifFalse: [self fprintf: f _: ',\n'] ].
+			self fprintf: f _: self fieldFormat _: fieldName _: fieldValue]
+		separatedBy: [ self fprintf: f _: ',\n'].
 
 	self fprintf: f _: '\n}'. 
 ]