diff options
| author | Arnaud Spiwack | 2014-11-07 18:58:01 +0100 |
|---|---|---|
| committer | Arnaud Spiwack | 2014-11-19 10:11:45 +0100 |
| commit | 15c8affb8643d1d6985311b3e303fa41f58f7d24 (patch) | |
| tree | ccd41a2d430384e9e8d99c11a26282f4d2c3b6e7 | |
| parent | 2815d5841e98cd288921c364ca5b7bf36ca7bcfe (diff) | |
Print [uconstr]-s in [idtac] messages.
| -rw-r--r-- | tactics/tacinterp.ml | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/tactics/tacinterp.ml b/tactics/tacinterp.ml index 63eb200de8..d34972fb58 100644 --- a/tactics/tacinterp.ml +++ b/tactics/tacinterp.ml @@ -799,6 +799,12 @@ let rec message_of_value v = else if has_type v (topwit wit_constr_context) then let c = out_gen (topwit wit_constr_context) v in Ftactic.nf_enter begin fun gl -> Ftactic.return (pr_constr_env (pf_env gl) (Proofview.Goal.sigma gl) c) end + else if has_type v (topwit wit_uconstr) then + let c = out_gen (topwit wit_uconstr) v in + Ftactic.nf_enter begin fun gl -> + Ftactic.return (pr_closed_glob_env (pf_env gl) + (Proofview.Goal.sigma gl) c) + end else match Value.to_list v with | Some l -> Ftactic.List.map message_of_value l >>= fun l -> |