← Back to branch summary

~npalix/coccinelle/upstream

« back to all changes in this revision

Viewing changes to tools/lic.ml

  • Committer: Julia Lawall
  • Author(s): JPR
  • Date: 2019-05-27 02:01:12 UTC
  • Revision ID: git-v1:19ee1697bf152d37a78a20cefe148775bf4b0e0d
Fixing typos

Signed-off-by: Jean-Pierre Rodi <jprodi04@gmail.com>

Show diffs side-by-side

added added

removed removed

Lines of Context:
tools/lic.ml
45
45
let cat file =
46
46
  let chan = open_in file in
47
47
  let rec cat_aux acc ()  =
48
 
      (* cant do input_line chan::aux() cos ocaml eval from right to left ! *)
 
48
      (* can't do input_line chan::aux() cos ocaml eval from right to left ! *)
49
49
    let (b, l) = try (true, input_line chan) with End_of_file -> (false, "") in
50
50
    if b
51
51
    then cat_aux (l::acc) ()