diff options
author | 2010-09-24 22:23:07 +0000 | |
---|---|---|
committer | 2010-09-24 22:23:07 +0000 | |
commit | 5f8fa89034b5ef43a7f8de51782733bdb43cec3a (patch) | |
tree | d8d41f91b5421daff3b490ffb51f50ffb053e5e8 /toplevel/himsg.ml | |
parent | b676f7c47b39838611f4125dd1488b10f05aaaa1 (diff) |
Fixed a bug in printing fix/cofix error messages when several
instances of the same variable name occur.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13465 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel/himsg.ml')
-rw-r--r-- | toplevel/himsg.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/toplevel/himsg.ml b/toplevel/himsg.ml index 947817909..6f1d0473a 100644 --- a/toplevel/himsg.ml +++ b/toplevel/himsg.ml @@ -228,6 +228,7 @@ let explain_ill_formed_rec_body env err names i fixenv vdefj = str "Recursive definition on" ++ spc () ++ pr_lconstr_env env c ++ spc () ++ str "which should be an inductive type" | RecursionOnIllegalTerm(j,(arg_env, arg),le,lt) -> + let arg_env = make_all_name_different arg_env in let called = match names.(j) with Name id -> pr_id id @@ -288,6 +289,7 @@ let explain_ill_formed_rec_body env err names i fixenv vdefj = pr_ne_context_of (str "In environment") env ++ st ++ str "." ++ fnl () ++ (try (* May fail with unresolved globals. *) + let fixenv = make_all_name_different fixenv in let pvd = pr_lconstr_env fixenv vdefj.(i).uj_val in str"Recursive definition is:" ++ spc () ++ pvd ++ str "." with _ -> mt ()) |