diff options
| author |  Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2017-01-22 15:05:08 +0100 |
|---|---|---|
| committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2017-01-22 15:05:08 +0100 |
| commit | d6bcc6ebe4f65d0555414851f7e4fb6fa1fb22a4 (patch) | |
| tree | d8617530b9cd67aafaf7674dcf2ed42c3265a433 /engine/evd.ml | |
| parent | f22969902223ab54f56f25583b24dc27c4cd6f4e (diff) | |
Adding a new evar source to remember the name of evars which were
named in the original term.
Useful at least for debugging, useful to give a better message than
"this placeholder", even if in the loc is known in this case.
Diffstat (limited to 'engine/evd.ml')
| -rw-r--r-- | engine/evd.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/engine/evd.ml b/engine/evd.ml index bffb40727..7006fde3c 100644 --- a/engine/evd.ml +++ b/engine/evd.ml @@ -1299,6 +1299,7 @@ let pr_decl (decl,ok) = print_constr c ++ str (if ok then ")" else "}") let pr_evar_source = function + | Evar_kinds.NamedHole id -> pr_id id | Evar_kinds.QuestionMark _ -> str "underscore" | Evar_kinds.CasesType false -> str "pattern-matching return predicate" | Evar_kinds.CasesType true -> |