diff options
author | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2018-05-23 13:34:22 +0200 |
---|---|---|
committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2018-05-23 18:50:10 +0200 |
commit | f2ab2825077bf8344d2e55be433efb1891212589 (patch) | |
tree | d666574c6b964fed33a0b50cece1648f67d9917f /checker/univ.ml | |
parent | 4e207da568b31fb3fd097fb584f4722bd7166fcf (diff) |
Collecting Array.smart_* functions into a module Array.Smart.
Diffstat (limited to 'checker/univ.ml')
-rw-r--r-- | checker/univ.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/checker/univ.ml b/checker/univ.ml index 7d285b6fe..d3eab8613 100644 --- a/checker/univ.ml +++ b/checker/univ.ml @@ -911,12 +911,12 @@ struct let is_empty x = Int.equal (Array.length x) 0 let subst_fn fn t = - let t' = CArray.smartmap fn t in + let t' = CArray.Smart.map fn t in if t' == t then t else t' let subst s t = let t' = - CArray.smartmap (fun x -> try LMap.find x s with Not_found -> x) t + CArray.Smart.map (fun x -> try LMap.find x s with Not_found -> x) t in if t' == t then t else t' let pr = @@ -952,7 +952,7 @@ let subst_instance_level s l = | _ -> l let subst_instance_instance s i = - Array.smartmap (fun l -> subst_instance_level s l) i + Array.Smart.map (fun l -> subst_instance_level s l) i let subst_instance_universe s u = let f x = Universe.Expr.map (fun u -> subst_instance_level s u) x in |