diff options
| author | Pierre-Marie Pédrot | 2016-06-15 17:43:07 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2016-06-20 07:58:04 +0200 |
| commit | 2964390736b887d47ec17429631575fec7188d5a (patch) | |
| tree | c5385c39d8693adc4316c948c0657d1ab077cdde | |
| parent | 0044b99b0111613130eb0c0a5ae74a23257fd069 (diff) | |
Do not evar-normalize goals when interpreting some hardwired genargs.
| -rw-r--r-- | ltac/tacinterp.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ltac/tacinterp.ml b/ltac/tacinterp.ml index 12119e5184..e814cc7e67 100644 --- a/ltac/tacinterp.ml +++ b/ltac/tacinterp.ml @@ -1579,7 +1579,7 @@ and interp_genarg_constr_list ist x = end } and interp_genarg_var_list ist x = - Ftactic.nf_enter { enter = begin fun gl -> + Ftactic.enter { enter = begin fun gl -> let env = Proofview.Goal.env gl in let sigma = Sigma.to_evar_map (Proofview.Goal.sigma gl) in let lc = Genarg.out_gen (glbwit (wit_list wit_var)) x in @@ -2033,7 +2033,7 @@ let () = let () = declare_uniform wit_pre_ident -let lift f = (); fun ist x -> Ftactic.nf_enter { enter = begin fun gl -> +let lift f = (); fun ist x -> Ftactic.enter { enter = begin fun gl -> let env = Proofview.Goal.env gl in let sigma = Sigma.to_evar_map (Proofview.Goal.sigma gl) in Ftactic.return (f ist env sigma x) |