optimizations on when to do NAT processing

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

@@ -107,7 +107,7 @@
             &mut lastCollector
                 (lambda []
                     (set lastChangeSet (the ChangeSet (Reflect.callMethod null command.handler collectedArgs)))
-                    (ui.handleChanges archive lastChangeSet))]
+                    (when lastChangeSet (ui.handleChanges archive lastChangeSet)))]
         // To facilitate asynchronous arg input via UI, we need to construct an insanely complicated nested callback to give the UI
         (doFor arg (reversed command.args)
             (set lastCollector (_composeArgCollector collectedArgs arg lastCollector)))

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

@@ -82,6 +82,7 @@
 
         
 (method handleChanges [:Archive archive :ChangeSet changeSet]
+    (archive.processSystems)
     (doFor e changeSet
         (print (archive.fullString e))))
 

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

@@ -2,8 +2,7 @@
 
 (method :Void process [:Archive archive]
     (doFor e (entries.iterator)
-        (processEntry archive e)
-        (archive.refreshEntry e)))
+        (processEntry archive e)))
 
 (defNew [&prop :EntryChecker canProcessEntry
             &prop :EntryProcessor processEntry]
@@ -18,4 +17,4 @@
             (entries.remove e.id)
             (when onRemoveEntry (onRemoveEntry archive e)))))
 
-// TODO systems may need access to a UI
+// TODO systems may need access to a UI or ArchiveController