more careful entry saving

projects/nat-archive-tool/src/nat/ArchiveController.kiss

@@ -186,5 +186,5 @@
                                 files (VarText null)]
         (doFor e entries
             (doFor file files
-                (withWritableEntry archive e (addFile archive e file))))
+                (addFile archive e file)))
         entries))

projects/nat-archive-tool/src/nat/Lib.kiss

@@ -26,10 +26,10 @@
 
 // TODO check not overwriting a component
 (defMacro addComponent [archive e componentType c]
-    `(let [componentId (Uuid.v4)]
+    `(withWritableEntry ,archive ,e (let [componentId (uuid.Uuid.v4)]
         (dictSet .components ,e ,(symbolName componentType) componentId)
         (writeComponent ,archive ,e ,componentType ,c)
-        ,e))
+        ,e)))
 
 // Retrieve multiple components from an Entity with mutable access.
 // All components will be serialized after the block is done.