From a198b3f7402d4b275a7fc67ece827843f00dadf0 Mon Sep 17 00:00:00 2001
From: Matthieu Sozeau
Date: Wed, 8 Jul 2015 17:57:54 +0200
Subject: Ide: fix bug #4284 for good

Correct folding order over the named_list_context.
---
 ide/ide_slave.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ide/ide_slave.ml b/ide/ide_slave.ml
index 6618dc7ef9..94f9c9a361 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 =
   {
-- 
cgit v1.2.3