diff options
| author |  Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2018-05-23 13:35:29 +0200 |
|---|---|---|
| committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2018-05-23 18:50:10 +0200 |
| commit | d8851bbd50df1f77af0aabfe98bebd44fcb4aa02 (patch) | |
| tree | 8c2385ac275d1ef50cc6b8c4c34ff8a58c115aca /checker | |
| parent | bb2d7f94ba8688f57dc62ca72a857b82368aa784 (diff) | |
Moving Rtree.smart_map into Rtree.Smart.map.
Diffstat (limited to 'checker')
| -rw-r--r-- | checker/declarations.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/checker/declarations.ml b/checker/declarations.ml index ddd505a9a..e1d2cf6d1 100644 --- a/checker/declarations.ml +++ b/checker/declarations.ml @@ -480,7 +480,7 @@ let dest_subterms p = let (_,cstrs) = Rtree.dest_node p in Array.map (fun t -> Array.to_list (snd (Rtree.dest_node t))) cstrs -let subst_wf_paths sub p = Rtree.smartmap (subst_recarg sub) p +let subst_wf_paths sub p = Rtree.Smart.map (subst_recarg sub) p let eq_recarg r1 r2 = match r1, r2 with | Norec, Norec -> true |