diff options
| author | Gaëtan Gilbert | 2019-05-13 12:49:39 +0200 |
|---|---|---|
| committer | Gaëtan Gilbert | 2019-05-13 12:49:39 +0200 |
| commit | cfecef471c706beb50d70b951b148c9629a4064a (patch) | |
| tree | d1ea20cc7b7af614311e2f4294a51a70e430971d /lib | |
| parent | fe75c2ab9400a83b18fa73e95d4c24a79f88c97d (diff) | |
| parent | 1cdaa823aa2db2f68cf63561a85771bb98aec70f (diff) | |
Merge PR #9887: [api] Remove 8.10 deprecations.
Reviewed-by: SkySkimmer
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/rtree.ml | 5 | ||||
| -rw-r--r-- | lib/rtree.mli | 6 |
2 files changed, 0 insertions, 11 deletions
diff --git a/lib/rtree.ml b/lib/rtree.ml index e1c6a4c4d6..66d9eba3f7 100644 --- a/lib/rtree.ml +++ b/lib/rtree.ml @@ -115,8 +115,6 @@ struct end -let smartmap = Smart.map - (** Structural equality test, parametrized by an equality on elements *) let rec raw_eq cmp t t' = match t, t' with @@ -149,9 +147,6 @@ let equiv cmp cmp' = let equal cmp t t' = t == t' || raw_eq cmp t t' || equiv cmp cmp t t' -(** Deprecated alias *) -let eq_rtree = equal - (** Intersection of rtrees of same arity *) let rec inter cmp interlbl def n histo t t' = try diff --git a/lib/rtree.mli b/lib/rtree.mli index 5ab14f6039..67519aa387 100644 --- a/lib/rtree.mli +++ b/lib/rtree.mli @@ -77,15 +77,9 @@ val incl : ('a -> 'a -> bool) -> ('a -> 'a -> 'a option) -> 'a -> 'a t -> 'a t - (** See also [Smart.map] *) val map : ('a -> 'b) -> 'a t -> 'b t -val smartmap : ('a -> 'a) -> 'a t -> 'a t -(** @deprecated Same as [Smart.map] *) - (** A rather simple minded pretty-printer *) val pp_tree : ('a -> Pp.t) -> 'a t -> Pp.t -val eq_rtree : ('a -> 'a -> bool) -> 'a t -> 'a t -> bool -(** @deprecated Same as [Rtree.equal] *) - module Smart : sig |