diff options
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/tacinterp.ml | 10 |
1 files changed, 1 insertions, 9 deletions
diff --git a/tactics/tacinterp.ml b/tactics/tacinterp.ml index b32e6731ee..7470de6c93 100644 --- a/tactics/tacinterp.ml +++ b/tactics/tacinterp.ml @@ -406,15 +406,7 @@ let extract_ltac_constr_values ist env = let c = coerce_to_constr env v in (Id.Map.add id c vars1, vars2) with CannotCoerceTo _ -> - let ido = - let v = Value.normalize v in - if has_type v (topwit wit_intro_pattern) then - match out_gen (topwit wit_intro_pattern) v with - | _, IntroIdentifier id0 -> Some id0 - | _ -> None - else None - in - (vars1, Id.Map.add id ido vars2) + (vars1, Id.Map.add id v vars2) in Id.Map.fold fold ist.lfun (Id.Map.empty, Id.Map.empty) (** ppedrot: I have changed the semantics here. Before this patch, closure was |