diff options
author | Enrico Tassi <Enrico.Tassi@inria.fr> | 2014-06-23 19:06:03 +0200 |
---|---|---|
committer | Enrico Tassi <Enrico.Tassi@inria.fr> | 2014-06-23 19:06:31 +0200 |
commit | efa3add0c03b70ecda3890cc6c69e66850605e7d (patch) | |
tree | 170f4a2991b8bfd30f6a769a173b2f0fe132686b /kernel/declareops.ml | |
parent | 550a407928063c8e93af808408a61a238fa5039a (diff) |
Fix handling of side effects in Defined objects (Closes: HoTT#111 + 3344)
Every time you use abstract a kitten dies, please stop.
Diffstat (limited to 'kernel/declareops.ml')
-rw-r--r-- | kernel/declareops.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/declareops.ml b/kernel/declareops.ml index 149eeba28..51b7b6f97 100644 --- a/kernel/declareops.ml +++ b/kernel/declareops.ml @@ -284,7 +284,7 @@ type side_effects = side_effect list let no_seff = ([] : side_effects) let iter_side_effects f l = List.iter f (List.rev l) let fold_side_effects f a l = List.fold_left f a l -let uniquize_side_effects l = CList.uniquize l +let uniquize_side_effects l = List.rev (CList.uniquize (List.rev l)) let union_side_effects l1 l2 = l1 @ l2 let flatten_side_effects l = List.flatten l let side_effects_of_list l = l |