Source

mutated_ocaml / testsuite / tests / typing-objects-bugs / pr4766_ok.ml

Diff from to

File testsuite/tests/typing-objects-bugs/pr4766_ok.ml

-class virtual ['a] c = 
-object (s : 'a) 
-  method virtual m : 'b 
+class virtual ['a] c =
+object (s : 'a)
+  method virtual m : 'b
 end
 
-let o = 
+let o =
     object (s :'a)
       inherit ['a] c
       method m = 42