(* Interface functions ******************************************************)
let set_obj f obj =
- let _, uri, b, t = obj in
- let obj = !entry, uri, b, t in
+ let _, uri, b = obj in
+ let obj = !entry, uri, b in
incr entry; H.add env uri obj; f obj
let get_obj f uri =