Merge pull request #12 from whitequark/master

Restore compatibility with 4.02
ocaml-ppx · Aug 7, 2014 · fb96e54 · fb96e54
2 parents 3e733c7 + 14b0836
commit fb96e54
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/dumpast.ml b/dumpast.ml
@@ -57,10 +57,10 @@ let show_file fn =
   Compenv.readenv Format.err_formatter Compenv.Before_compile;
   let v =
     if Filename.check_suffix fn ".mli" then
-      let ast = Pparse.parse_interface Format.err_formatter fn in
+      let ast = Pparse.parse_interface ~tool_name:"ocamlc" Format.err_formatter fn in
       lift # lift_Parsetree_signature ast
     else if Filename.check_suffix fn ".ml" then
-      let ast = Pparse.parse_implementation Format.err_formatter fn in
+      let ast = Pparse.parse_implementation ~tool_name:"ocamlc" Format.err_formatter fn in
       lift # lift_Parsetree_structure ast
     else
       failwith (Printf.sprintf "Don't know what to do with file %s" fn)