diff options
| author | herbelin | 2003-05-13 22:10:03 +0000 |
|---|---|---|
| committer | herbelin | 2003-05-13 22:10:03 +0000 |
| commit | 1d77fef0f749dc3a629f8ebd29dfebe1311eb497 (patch) | |
| tree | 883ee1b75202153a3e9c7c9fe6df845c4c3a2467 /tactics | |
| parent | 6006880b1ab124ae7c229dc3dc513b49229c9813 (diff) | |
Separation entre les propositions de syntaxe - suite
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4005 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/tacinterp.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/tactics/tacinterp.ml b/tactics/tacinterp.ml index c2a1cf4ba5..3f3b4e019f 100644 --- a/tactics/tacinterp.ml +++ b/tactics/tacinterp.ml @@ -2080,6 +2080,7 @@ let make_empty_glob_sign () = metavars = []; gsigma = Evd.empty; genv = Global.env() } let add_tacdef isrec tacl = + let isrec = if !Options.p1 then isrec else true in let rfun = List.map (fun ((loc,id as locid),_) -> (id,make_absolute_name locid)) tacl in let ist = {(make_empty_glob_sign()) with ltacrecvars = if isrec then rfun else []} in |