Adapt to OCaml trunk.

Author: alainfrisch

rewriter.ml

@@ -92,13 +92,13 @@ let () =
         | `Struct ->
             let pstr = Parse.implementation lexer in
             let pstr = Pparse.apply_rewriters (* ~restore:true *) ~tool_name:!tool_name
-                Config.ast_impl_magic_number pstr in
+                Pparse.Structure pstr in
             Pprintast.structure fmt pstr;
             Format.pp_print_newline fmt ()
         | `Sig ->
             let psig = Parse.interface lexer in
             let psig = Pparse.apply_rewriters (* ~restore:true *) ~tool_name:!tool_name
-                Config.ast_intf_magic_number psig in
+                Pparse.Signature psig in
             Pprintast.signature fmt psig;
             Format.pp_print_newline fmt ())
   with exn ->