From 4662a2c92ecfdfb383f504f8c230b6d2f2bb58fc Mon Sep 17 00:00:00 2001
From: Hugo Herbelin
Date: Thu, 23 Oct 2014 20:47:29 +0200
Subject: Fixing order of hypothesis in goal hypotheses compaction for coqtop.

---
 ide/ide_slave.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'ide')

diff --git a/ide/ide_slave.ml b/ide/ide_slave.ml
index a91be2aa44..60dfa894a5 100644
--- a/ide/ide_slave.ml
+++ b/ide/ide_slave.ml
@@ -180,7 +180,7 @@ let process_goal sigma g =
     (string_of_ppcmds (pr_var_list_decl min_env sigma d)) in
   let hyps =
     List.map process_hyp
-      (Termops.compact_named_context (Environ.named_context env)) in
+      (Termops.compact_named_context_reverse (Environ.named_context env)) in
   { Interface.goal_hyp = hyps; Interface.goal_ccl = ccl; Interface.goal_id = id; }
 
 let goals () =
-- 
cgit v1.2.3