Commit 8fa73bee authored by POTTIER Francois's avatar POTTIER Francois

Rename visitors from [o] to [v].

parent 62d9170f
open Expr15
let size : expr -> int =
let o = object
let v = object
inherit [_] reduce as super
inherit [_] VisitorsRuntime.addition_monoid
method! visit_expr env e =
1 + super # visit_expr env e
end in
o # visit_expr ()
v # visit_expr ()
......@@ -9,10 +9,10 @@ and crowd =
[@@deriving visitors { variety = "fold" }]
let convert : crowd -> (string * string) list =
let o = object
let v = object
inherit [_] fold
method build_person () f s = (f, s)
method build_Nobody () = []
method build_Someone () p c = p :: c
end
in o # visit_crowd ()
in v # visit_crowd ()
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment