remove manual main definitions

src/nat/CLI.kiss

@@ -1,6 +1,6 @@
+// External programs can load Lib.kiss with (loadFrom "nat-archive-tool" "src/nat/Lib.kiss")
 (load "Lib.kiss")
 
-(function :Void main []
 (let [[archiveDir] (Sys.args)
         controller
             (new ArchiveController
@@ -12,7 +12,7 @@
                     (.trim (.toString (.readLine (Sys.stdin))))]
                 (if (controller.commands.exists command)
                         (controller.runCommand (dictGet controller.commands command))
-                        (Sys.println "$command is not a valid command"))))))
+                    (Sys.println "$command is not a valid command")))))
 
 (defNew [])
 

src/test/TestMain.kiss

@@ -1,17 +1,12 @@
-// TODO external programs need to be able to find and (load) this path to get the macros:
+// External programs can load Lib.kiss with (loadFrom "nat-archive-tool" "src/nat/Lib.kiss")
-// ^ That should be solved by allowing an optional first argument to load that is a symbol
-// of a library name that can be used to resolve the source dir in the user's Haxelib maybe?
 (load "../nat/Lib.kiss")
 
-
-(function :Void main []
 (assert (BoolExpInterp.eval "true" []))
 (assert !(BoolExpInterp.eval "false" []))
 (assert !(BoolExpInterp.eval "flag" []))
 (assert (BoolExpInterp.eval "flag" ["flag"]))
 (assert !(BoolExpInterp.eval "(and flag false)" ["flag"]))
 (assert (BoolExpInterp.eval "(or flag otherFlag)" ["otherFlag"]))
-    //trace(error);
 (let [archive
             (new Archive "src/test/example-archive")
         song1
@@ -32,4 +27,4 @@
         [author Author
             name Name]
         (assert (= author "Rafael Krux"))
-            (assert (= name "Adventure")))))
+        (assert (= name "Adventure"))))