diff --git a/src/Squot.package/SquotTonelMapper.class/instance/serialize.into..st b/src/Squot.package/SquotTonelMapper.class/instance/serialize.into..st index 7140f09f0..74864b0d8 100644 --- a/src/Squot.package/SquotTonelMapper.class/instance/serialize.into..st +++ b/src/Squot.package/SquotTonelMapper.class/instance/serialize.into..st @@ -1,3 +1,7 @@ changes-operations serialize: aSnapshot into: aFileSystem - (self writerOn: aFileSystem) writeSnapshot: aSnapshot. \ No newline at end of file + | writer | + writer := (self writerOn: aFileSystem). + aSnapshot definitions + ifEmpty: [writer packageDir deleteAll] + ifNotEmpty: [writer writeSnapshot: aSnapshot]. \ No newline at end of file diff --git a/src/Squot.package/SquotTonelMapper.class/methodProperties.json b/src/Squot.package/SquotTonelMapper.class/methodProperties.json index d286221ea..bc53966b4 100644 --- a/src/Squot.package/SquotTonelMapper.class/methodProperties.json +++ b/src/Squot.package/SquotTonelMapper.class/methodProperties.json @@ -5,7 +5,7 @@ "encodingName" : "mad 10/16/2023 17:27", "loadSnapshotFrom:" : "mad 10/16/2023 19:52", "readerIn:" : "mad 10/16/2023 20:35", - "serialize:into:" : "mad 10/16/2023 17:26", + "serialize:into:" : "mad 10/17/2023 11:50", "writeTimestamps" : "mad 9/26/2023 15:24", "writeTimestamps:" : "mad 9/26/2023 15:24", "writerOn:" : "mad 10/16/2023 17:26" } }