Source

ocamlspot / tests / inherit.ml

Full commit
class (* c => *) c (* <= c *) = object
  val (* x => *) x (* <= x *) = 1 
end 

class nc = object
  inherit let _x = 1 in c (* ? c *)
  val y = 1
  method m = x
end

class nnc = object
  inherit (* nc => *) let _y = 1 in nc (* <= nc *) (* CR jfuruse: should point to nc *)
  method n = y (* ? nc *)
end