Commits

Anonymous committed 2df87f1

class ti_dest in .mli

Comments (0)

Files changed (1)

 type dest 'o
 ;
 
+class ti_dest ['a] : [ (Cdt.ti 'b) ] -> [ unit ] ->
+  object
+    constraint 'a = dest 'b;
+    inherit Cdt.tifull ['a];
+  end
+;
+
+
 (* вызов = аргументы + место для результата *)
 type call 'i 'o = ('i * dest 'o)
 ;