(* Interface functions ******************************************************)
-let set_entity f (a, uri, b) =
+(* decps *)
+let set_entity (a, uri, b) =
let age = get_age () in
let entity = (Y.Apix age :: a), uri, b in
- H.add env uri entity; f entity
+ H.add env uri entity; entity
-let get_entity err f uri =
- try f (H.find env uri) with Not_found -> err ()
+let get_entity uri =
+ try H.find env uri with Not_found -> [], uri, Y.Void