Source file domain.ml

1
2
3
4
5
6
# 1 "lib/fake/domain.ml"
module DLS = struct
  let new_key f = ref (f())
  let set x y = x := y
  let get x = !x
end