Adapt one more example.

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@14185 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02

1 files changed, 17 insertions, 14 deletions

diff --git a/experimental/frisch/ppx_builder.ml b/experimental/frisch/ppx_builder.ml
index 262274cb40..32d3edd9e3 100644
--- a/experimental/frisch/ppx_builder.ml
+++ b/experimental/frisch/ppx_builder.ml
@@ -78,20 +78,23 @@ module Main : sig end = struct
   let gen_builder tdecl =
     with_default_loc tdecl.ptype_loc (fun () -> gen_builder tdecl)
 
-  let builder = object(this)
-    inherit Ast_mapper.mapper
-
-    method! structure l =
-      List.flatten
-        (List.map
-           (function
-             | {pstr_desc = Pstr_type tdecls; _} as i ->
-                 i :: (List.flatten (List.map gen_builder tdecls))
-             | i -> [this # structure_item i]
-           )
-           l
+  let builder _args =
+    let open Ast_mapper in
+    let super = default_mapper in
+    {super
+     with
+      structure =
+        (fun this l ->
+           List.flatten
+             (List.map
+                (function
+                  | {pstr_desc = Pstr_type tdecls; _} as i ->
+                      i :: (List.flatten (List.map gen_builder tdecls))
+                  | i -> [structure_item this i]
+                ) l
+             )
         )
-  end
+    }
 
-  let () = Ast_mapper.main builder
+  let () = Ast_mapper.run_main builder
 end