Commit 96f81dda authored by POTTIER Francois's avatar POTTIER Francois

New test.

parent 2f1dc36e
class ['self] base = object (_ : 'self)
method visit_real _env x = x
end
type cloud =
| Point of (float[@name "real"]) * (float[@name "real"])
| Clouds of cloud list
[@@name "nuage"]
[@@deriving visitors { variety = "map"; ancestors = ["base"] }]
cloud
delayed_tree
dictionary
fold
......
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