Source file `weak_ptr.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
type 'a t = 'a Weak.t

let empty () =
  Weak.create 1

let set t x =
  Weak.set t 0 (Some x)

let clear t =
  Weak.set t 0 None

let wrap x =
  let t = empty () in
  set t x;
  t

let get t =
  Weak.get t 0