From 14b08363c8962a94de32690500dc12b652d4d2fc Mon Sep 17 00:00:00 2001 From: Peter Zotov Date: Thu, 7 Aug 2014 15:25:18 +0400 Subject: [PATCH] Restore compatibility with 4.02. --- dumpast.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/dumpast.ml b/dumpast.ml index 99a60ab..a93c003 100644 --- 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)