module Ref:sig
..end
equal t1 t2
returns true if t1
and t2
are the same ref cell.type'a
t ='a Pervasives.ref
= {
|
mutable contents : |
include Binable.S1
include Sexpable.S1
include Container.S1
val create : 'a -> 'a t
val (!) : 'a t -> 'a
val (:=) : 'a t -> 'a -> unit
val equal : 'a t -> 'a t -> bool
equal t1 t2
returns true if t1
and t2
are the same ref cell.val swap : 'a t -> 'a t -> unit
swap t1 t2
swaps the values in t1
and t2
.val replace : 'a t -> ('a -> 'a) -> unit
replace t f
is t := f !t