From 1d77fef0f749dc3a629f8ebd29dfebe1311eb497 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Tue, 13 May 2003 22:10:03 +0000
Subject: 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
---
 tactics/tacinterp.ml | 1 +
 1 file changed, 1 insertion(+)

(limited to 'tactics')

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
-- 
cgit v1.2.3