anil.recoil.org / unpac-unpac
The unpac monorepo manager self-hosting as a monorepo using unpac
fork atom

Pmark: use an atomic reference

Jérôme Vouillon 65872cd6 78b595f1

+2 -7
unified split
+2 -7
lib/pmark.ml
··· 3 4 let equal (x : int) (y : int) = x = y 5 let compare (x : int) (y : int) = compare x y 6 - let r = ref 0 7 - 8 - let gen () = 9 - incr r; 10 - !r 11 - ;; 12 - 13 let pp = Format.pp_print_int 14 end 15
··· 3 4 let equal (x : int) (y : int) = x = y 5 let compare (x : int) (y : int) = compare x y 6 + let r = Atomic.make 1 7 + let gen () = Atomic.fetch_and_add r 1 8 let pp = Format.pp_print_int 9 end 10