simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-06 11:15:31 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

simpler Univ.unpack implementation

Browse source
This commit is contained in:
Simon Cruanes 2013-05-24 13:44:44 +02:00
parent 93eb787082
commit 73073bdd0c
1 changed files with 4 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
univ.ml
View file

@ -49,12 +49,10 @@ let embed () =
{ id = id; store = (fun () -> r := o); } { id = id; store = (fun () -> r := o); }
in in
let unpack t = (* try to extract the content of a univ cell *) let unpack t = (* try to extract the content of a univ cell *)
if id == t.id then begin r := None;
t.store (); t.store ();
let a = !r in let a = !r in
r := None;
a a
end else None
in in
let set t a = (* change, in place, the embedding and content of the cell *) let set t a = (* change, in place, the embedding and content of the cell *)
t.id <- id; t.id <- id;