class ['a] callbacks_poll : object .. end
['a]
object
end
val mutable cbs : 'a list
'a list
method add : 'a -> unit
'a -> unit
method iter : ('a -> unit) -> unit
('a -> unit) -> unit