Commits

Anonymous committed 8a99661

started using Arg.parse

Comments (0)

Files changed (1)

       (try footnotes c stdout with e -> close_in c; raise e);
       close_in c
     in
-    Array.iter do_file (Array.sub Sys.argv 1 (Array.length Sys.argv - 1))
+    Arg.parse [] do_file "Usage: footnotes [file...]"
   else footnotes stdin stdout;;
 
 main ();;