diff options
Diffstat (limited to 'contrib/field/field.ml4')
| -rw-r--r-- | contrib/field/field.ml4 | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/contrib/field/field.ml4 b/contrib/field/field.ml4 index 926ca7951..61bd3353f 100644 --- a/contrib/field/field.ml4 +++ b/contrib/field/field.ml4 @@ -109,8 +109,10 @@ let _ = let field g = let evc = project g and env = pf_env g in - let typ = constr_of_Constr (interp_tacarg (evc,env,[],[],Some g,get_debug ()) - <:tactic< + let ist = { evc=evc; env=env; lfun=[]; lmatch=[]; + goalopt=Some g; debug=get_debug () } in + let typ = constr_of_Constr (interp_tacarg ist + <:tactic< Match Context With | [|-(eq ?1 ? ?)] -> ?1 | [|-(eqT ?1 ? ?)] -> ?1>>) in |