diff options
| author | Hugo Herbelin | 2017-01-22 15:05:08 +0100 |
|---|---|---|
| committer | Hugo Herbelin | 2017-01-22 15:05:08 +0100 |
| commit | d6bcc6ebe4f65d0555414851f7e4fb6fa1fb22a4 (patch) | |
| tree | d8617530b9cd67aafaf7674dcf2ed42c3265a433 /interp | |
| 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 'interp')
| -rw-r--r-- | interp/constrintern.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/interp/constrintern.ml b/interp/constrintern.ml index 235e6e24f6..c102d8e117 100644 --- a/interp/constrintern.ml +++ b/interp/constrintern.ml @@ -1739,7 +1739,9 @@ let internalize globalenv env allow_patvar (_, ntnvars as lvar) c = let k = match k with | None -> let st = Evar_kinds.Define (not (Program.get_proofs_transparency ())) in - Evar_kinds.QuestionMark st + (match naming with + | Misctypes.IntroIdentifier id -> Evar_kinds.NamedHole id + | _ -> Evar_kinds.QuestionMark st) | Some k -> k in let solve = match solve with |