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 3 4 4 let equal (x : int) (y : int) = x = y 5 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 - 6 + let r = Atomic.make 1 7 + let gen () = Atomic.fetch_and_add r 1 13 8 let pp = Format.pp_print_int 14 9 end 15 10