Remove archive argument from readComponent

projects/nat-archive-tool/src/nat/systems/NameSystem.kiss

@@ -6,7 +6,7 @@
 (defNew []
     (super
         ->[archive e] (hasComponent e Name)
-        ->[archive e] (let [name (readComponent archive e Name)]
+        ->[archive e] (let [name (readComponent e Name)]
                              (if (entriesByName.exists (name.toLowerCase))
                                     (.push (dictGet entriesByName (name.toLowerCase)) e)
                                 (dictSet entriesByName (name.toLowerCase) [e]))

projects/nat-archive-tool/src/nat/systems/WikipediaImageSystem.kiss

@@ -10,7 +10,7 @@
 // named method in case a user will want to run it on selectedEntries instead of on media entries
 (method scrapeForImages [archive e]
     (let [:String title
-                (readComponent archive e Name)
+                (readComponent e Name)
             :Array<String> wikipediaImageUrls
                 (queryImageUrls (queryImageTitles [title]))]
         (addFiles archive e