spacepaste

Paste details

reply | raw

  1.  
  2. type 'a t = 'a option ref
  4. let create () = ref None
  6. let init v = ref (Some v)
  8. let of_option = ref
  10. let reify v f = match !v with
  11. | Some v' -> v'
  12. | None ->
  13. let v' = f () in
  14. v := Some v';
  15. v'
  16.  
Powered by spacepaste. Paste removal.