1. Rörd Hinrichsen
  2. footnotes-ocaml

Commits

"Rör...@gmail.com>"  committed 3be0993

renamed by_footnotes to by_foots

  • Participants
  • Parent commits 68a256a
  • Branches default

Comments (0)

Files changed (1)

File footnotes.ml

View file
  • Ignore whitespace
   process_foots inc print_foot (output_endline outc)
 
 (* renumber the footnote references *)
-let renumber by_footnotes =
-  if by_footnotes then renumber_by_foots else renumber_by_body
+let renumber by_foots =
+  if by_foots then renumber_by_foots else renumber_by_body
 
 (* process options and files given on command line or stdin *)
 let main () =
   if Array.length Sys.argv > 1 then
-    let by_footnotes = ref false in
+    let by_foots = ref false in
     let do_file f =
       let c = open_in f in
-      (try renumber !by_footnotes c stdout with e -> close_in c; raise e);
+      (try renumber !by_foots c stdout with e -> close_in c; raise e);
       close_in c
     in
-    Arg.parse [("-f", Arg.Set by_footnotes,
+    Arg.parse [("-f", Arg.Set by_foots,
 		"Renumber footnotes by their original order")]
       do_file "Usage: footnotes [OPTION...] [file...]"
   else renumber_by_body stdin stdout;;