diff options
author | Matthieu Sozeau <matthieu.sozeau@inria.fr> | 2015-07-08 17:57:54 +0200 |
---|---|---|
committer | Matthieu Sozeau <matthieu.sozeau@inria.fr> | 2015-07-08 17:57:54 +0200 |
commit | a198b3f7402d4b275a7fc67ece827843f00dadf0 (patch) | |
tree | e579f96b7354f8912b9ac0ddb012ccef41b86fa2 | |
parent | 8ad5f5726283c69a71f7ee0f2d12ce94b707b5a6 (diff) |
Ide: fix bug #4284 for good
Correct folding order over the named_list_context.
-rw-r--r-- | ide/ide_slave.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ide/ide_slave.ml b/ide/ide_slave.ml index 6618dc7ef..94f9c9a36 100644 --- a/ide/ide_slave.ml +++ b/ide/ide_slave.ml @@ -192,8 +192,8 @@ let process_goal sigma g = (string_of_ppcmds (pr_var_list_decl env sigma d)) :: l) in let (_env, hyps) = Context.fold_named_list_context process_hyp - (Termops.compact_named_context_reverse (Environ.named_context env)) ~init:(min_env,[]) in - { Interface.goal_hyp = hyps; Interface.goal_ccl = ccl; Interface.goal_id = id; } + (Termops.compact_named_context (Environ.named_context env)) ~init:(min_env,[]) in + { Interface.goal_hyp = List.rev hyps; Interface.goal_ccl = ccl; Interface.goal_id = id; } let export_pre_goals pgs = { |