Adapt one more example.

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

1 files changed, 16 insertions, 16 deletions

diff --git a/experimental/frisch/ppx_matches.ml b/experimental/frisch/ppx_matches.ml
index 7c26e67b64..52ac722d70 100644
--- a/experimental/frisch/ppx_matches.ml
+++ b/experimental/frisch/ppx_matches.ml
@@ -7,21 +7,21 @@ open Asttypes
 open Parsetree
 open Ast_helper
 
-let mapper =
-  object(this)
-    inherit Ast_mapper.mapper as super
-
-    method! expr e =
-      match e.pexp_desc with
-      | Pexp_extension({txt="matches";_}, PPat (p, guard)) ->
-        let p = this # pat p in
-        let guard = Ast_mapper.map_opt (this # expr) guard in
+let mapper _args =
+  let open Ast_mapper in
+  let super = default_mapper in
+  let my_expr this e =
+    match e.pexp_desc with
+    | Pexp_extension({txt="matches";_}, PPat (p, guard)) ->
+        let p = pat this p in
+        let guard = Ast_mapper.map_opt (expr this) guard in
         Exp.function_ ~loc:e.pexp_loc
-            [
-              Exp.case p ?guard (Convenience.constr "true" []);
-              Exp.case (Pat.any ()) (Convenience.constr "false" []);
-            ]
-      | _ -> super#expr e
-  end
+          [
+            Exp.case p ?guard (Convenience.constr "true" []);
+            Exp.case (Pat.any ()) (Convenience.constr "false" []);
+          ]
+    | _ -> super.expr this e
+  in
+  {super with expr = my_expr}
 
-let () = Ast_mapper.main mapper
+let () = Ast_mapper.run_main mapper