diff options
| author | msozeau | 2007-10-24 14:36:05 +0000 |
|---|---|---|
| committer | msozeau | 2007-10-24 14:36:05 +0000 |
| commit | cab1bbad4fb93a18cefd6c3609408de39e8a1eef (patch) | |
| tree | 5210b04f8e7e5d922345ecfdc8f4d48475bd34e4 | |
| parent | ec3efbb8b59e7d3b8e5bb9fff622ab2ad0f2146b (diff) | |
Fix define body bug fix
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10262 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | contrib/subtac/subtac.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/contrib/subtac/subtac.ml b/contrib/subtac/subtac.ml index 22b0ac68c2..4617ca9777 100644 --- a/contrib/subtac/subtac.ml +++ b/contrib/subtac/subtac.ml @@ -115,7 +115,7 @@ let subtac (loc, command) = VernacDefinition (defkind, (locid, id), expr, hook) -> (match expr with ProveBody (bl, c) -> ignore(Subtac_pretyping.subtac_proof env isevars id bl c None) - | DefineBody (cbl, bl, c, tycon) -> + | DefineBody (bl, _, c, tycon) -> ignore(Subtac_pretyping.subtac_proof env isevars id bl c tycon)) | VernacFixpoint (l, b) -> let _ = trace (str "Building fixpoint") in |