expr15.ml 112 Bytes
Newer Older
POTTIER Francois's avatar
POTTIER Francois committed
1
type expr =
POTTIER Francois's avatar
POTTIER Francois committed
2
  | EConst of (int[@opaque])
POTTIER Francois's avatar
POTTIER Francois committed
3
  | EAdd of expr * expr
POTTIER Francois's avatar
POTTIER Francois committed
4
  [@@deriving visitors { variety = "reduce" }]