From f53156a6d3819682dc888835abcef2b5320dab1b Mon Sep 17 00:00:00 2001 From: Paul Steckler Date: Tue, 5 Dec 2017 12:34:06 -0500 Subject: Rename update to set, fixes #6196 --- engine/universes.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'engine/universes.ml') diff --git a/engine/universes.ml b/engine/universes.ml index 5ac1bc685..d29e8777d 100644 --- a/engine/universes.ml +++ b/engine/universes.ml @@ -459,7 +459,7 @@ module LevelUnionFind = Unionfind.Make (Univ.LSet) (Univ.LMap) let add_list_map u t map = try let l = LMap.find u map in - LMap.update u (t :: l) map + LMap.set u (t :: l) map with Not_found -> LMap.add u [t] map @@ -552,7 +552,7 @@ let normalize_univ_variable_subst subst = let find l = Univ.LMap.find l !subst in let update l b = assert (match Universe.level b with Some l' -> not (Level.equal l l') | None -> true); - try subst := Univ.LMap.update l b !subst; b with Not_found -> assert false in + try subst := Univ.LMap.set l b !subst; b with Not_found -> assert false in normalize_univ_variable ~find ~update let normalize_universe_opt_subst subst = -- cgit v1.2.3