diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-03-03 14:20:42 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-03-03 15:26:51 +0100 |
| commit | 96f8d358c7d3c9a08ff2006f42716bc64937dad2 (patch) | |
| tree | c7a6503e6b39681aee60e556827614b5b3512778 /kernel/declareops.ml | |
| parent | 49a764bd81ac1b21130d54a1808ce95b9992a36d (diff) | |
Fixing pervasive equalities. In particular, I removed the code that deleted
duplicates in kernel side effects. They were chosen according to an equality
that was quite irrelevant, and as expected this patch did not break the
test-suite.
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 7c852a755..1b67de0ea 100644 --- a/kernel/declareops.ml +++ b/kernel/declareops.ml @@ -248,7 +248,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 = List.uniquize l +let uniquize_side_effects l = l (** FIXME: there is something dubious here *) let union_side_effects l1 l2 = l1 @ l2 let flatten_side_effects l = List.flatten l let side_effects_of_list l = l |