Commits

Corentin Derbois committed 9de954a

Trying ot fix warn

Comments (0)

Files changed (1)

         []                  ->
           ()
       | e::r when e == "-o" ->
-          this#next r (fun e -> output = e; ())
+          this#next r (fun e -> output = e; ()); ()
       | e::r                ->
-          this#addFile e; this#rec_parce r
+          this#addFile e; this#rec_parce r; ()
   
   method parse () =
     let _::args = Array.to_list argv in 
-      this#rec_parce (args)
+      this#rec_parce args
 
 end