From 148a1f26081f89cc6c2d17349b66a8de5074eca7 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Thu, 9 May 2013 18:05:23 +0000
Subject: Fixing r16487 on sharing evars between multiple parameters (missing
 List.rev).

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16496 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 toplevel/command.ml | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/toplevel/command.ml b/toplevel/command.ml
index 9267e236d8..47d4965285 100644
--- a/toplevel/command.ml
+++ b/toplevel/command.ml
@@ -215,9 +215,11 @@ let interp_assumption evdref env bl c =
 
 let declare_assumptions idl is_coe k c imps impl_is_on nl =
   !declare_assumptions_hook c;
-  List.fold_left (fun (refs,status) id ->
-    let ref',status' = declare_assumption is_coe k c imps impl_is_on nl id in
-    ref'::refs, status' && status) ([],true) idl
+  let refs, status =
+    List.fold_left (fun (refs,status) id ->
+      let ref',status' = declare_assumption is_coe k c imps impl_is_on nl id in
+      ref'::refs, status' && status) ([],true) idl in
+  List.rev refs, status
 
 let do_assumptions kind nl l =
   let env = Global.env () in
-- 
cgit v1.2.3