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 /lib | |
| parent | 4e207da568b31fb3fd097fb584f4722bd7166fcf (diff) | |
Collecting Array.smart_* functions into a module Array.Smart.
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/rtree.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/rtree.ml b/lib/rtree.ml index 0e371025e..d2ba6af7b 100644 --- a/lib/rtree.ml +++ b/lib/rtree.ml @@ -103,11 +103,11 @@ let rec map f t = match t with let smartmap f t = match t with Param _ -> t | Node (a,sons) -> - let a'=f a and sons' = Array.smartmap (map f) sons in + let a'=f a and sons' = Array.Smart.map (map f) sons in if a'==a && sons'==sons then t else Node (a',sons') | Rec(j,defs) -> - let defs' = Array.smartmap (map f) defs in + let defs' = Array.Smart.map (map f) defs in if defs'==defs then t else Rec(j,defs') |