diff options
| author | herbelin | 2009-03-22 22:01:32 +0000 |
|---|---|---|
| committer | herbelin | 2009-03-22 22:01:32 +0000 |
| commit | 3a8946b8b1a77941f02e80230286280ee86d23a0 (patch) | |
| tree | c40749605c5d1edba8cd81101569feebd805089a /toplevel | |
| parent | 171bb32cd6eb1e0f93d10d90d3c81bb3ecc4f6d0 (diff) | |
Backport from v8.2 branch of 11986 (interpretation of quantified
hypotheses in induction, unbalanced parenthesis in ltac call stack
printer) and 12003 (late update of CREDITS) + update of magic numbers
(using a somehow arbitrary value between the 8.2 magic numbers and the
possibly forthcoming 8.3 magic numbers).
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12007 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel')
| -rw-r--r-- | toplevel/himsg.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/toplevel/himsg.ml b/toplevel/himsg.ml index 6f1e95d603..9658f792e8 100644 --- a/toplevel/himsg.ml +++ b/toplevel/himsg.ml @@ -822,8 +822,8 @@ let explain_ltac_call_trace (nrep,last,trace,loc) = prlist_with_sep pr_coma (fun (id,c) -> pr_id id ++ str ":=" ++ Printer.pr_lconstr c) - (List.rev vars @ unboundvars) - else mt()) ++ str ")") ++ + (List.rev vars @ unboundvars) ++ str ")" + else mt())) ++ (if n=2 then str " (repeated twice)" else if n>2 then str " (repeated "++int n++str" times)" else mt()) in |