diff options
| author |  Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2016-10-22 12:22:00 +0200 |
|---|---|---|
| committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2016-10-22 12:22:40 +0200 |
| commit | 46462c3cc69e97bf3260f1aad5faaa6eaf6c2722 (patch) | |
| tree | 67eeabc6becc6476c030c4060524c1fab1ae5320 /ltac/tacinterp.ml | |
| parent | c28a2a3a1297098ee73ad5b26e714164b6167d2b (diff) | |
| parent | 80d5779409bf33fbe5043275b96775a5f04a3b2c (diff) | |
Merge branch 'v8.5' into v8.6
Diffstat (limited to 'ltac/tacinterp.ml')
| -rw-r--r-- | ltac/tacinterp.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/ltac/tacinterp.ml b/ltac/tacinterp.ml index 08e67a0c2..52208979c 100644 --- a/ltac/tacinterp.ml +++ b/ltac/tacinterp.ml @@ -875,6 +875,9 @@ let rec message_of_value v = Ftactic.return (pr_closed_glob_env (pf_env gl) (project gl) c) end } + else if has_type v (topwit wit_var) then + let id = out_gen (topwit wit_var) v in + Ftactic.nf_enter { enter = begin fun gl -> Ftactic.return (pr_id id) end } else match Value.to_list v with | Some l -> Ftactic.List.map message_of_value l >>= fun l -> |