Source

ocamlspot / tests / inherited_val.ml

Full commit
1
2
3
4
5
6
7
8
class c = object
  val a = 1
end

class c' = object
  inherit (* a => *) c (* <= a *) (* CR jfuruse: this should point to c's a *)
  method get_a = a (* ? a *)
end