diff options
| author | Matthieu Sozeau | 2016-10-06 11:21:10 +0200 |
|---|---|---|
| committer | Matthieu Sozeau | 2016-10-06 11:22:04 +0200 |
| commit | 08f4cfc9dfb03973ae652ef6576342ae38f8f199 (patch) | |
| tree | a62ee2859201118e4f37845d69b5985ba5d0b635 | |
| parent | 0b417c12eb10bb29bcee04384b6c0855cb9de73a (diff) | |
w_merge: Add a comment about the (List.rev evars)
This change exposed bug #4763
| -rw-r--r-- | pretyping/unification.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/pretyping/unification.ml b/pretyping/unification.ml index 3d734ea9a9..b7edd6fcd6 100644 --- a/pretyping/unification.ml +++ b/pretyping/unification.ml @@ -1361,7 +1361,9 @@ let w_merge env with_types flags (evd,metas,evars) = in w_merge_rec evd [] [] eqns in let res = (* merge constraints *) - w_merge_rec evd (order_metas metas) (List.rev evars) [] + w_merge_rec evd (order_metas metas) + (* Assign evars in the order of assignments during unification *) + (List.rev evars) [] in if with_types then check_types res else res |