diff options
| author |  barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-09-20 18:10:57 +0000 |
|---|---|---|
| committer | barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-09-20 18:10:57 +0000 |
| commit | 1f96d480842a1206a9334d0c8b1b6cc4647066ef (patch) | |
| tree | 9fc22a20d49bcefca1d863aee9d36c5fab03334f /contrib/field/field.ml4 | |
| parent | 6c7f6fa6c215e5e28fcf23bf28ccb9db543709ba (diff) | |
Transparent
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2035 85f007b7-540e-0410-9357-904b9bb8a0f7
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 |