diff options
| author | herbelin | 2013-05-09 18:05:23 +0000 |
|---|---|---|
| committer | herbelin | 2013-05-09 18:05:23 +0000 |
| commit | 148a1f26081f89cc6c2d17349b66a8de5074eca7 (patch) | |
| tree | e43ab4069e7a2f613aa8b89360f11c3740a9d681 | |
| parent | 37aae0336ce4dfe702dee24a72005a789068c390 (diff) | |
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
| -rw-r--r-- | toplevel/command.ml | 8 |
1 files 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 |