From 40e8696da9ad06515e20cf438c2d19b76d73eabe Mon Sep 17 00:00:00 2001
From: filliatr
Date: Mon, 21 Jan 2002 10:09:40 +0000
Subject: warning en mode verbeux seulement

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2422 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 pretyping/indrec.ml | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/pretyping/indrec.ml b/pretyping/indrec.ml
index 7aedf999a7..b60c3a3b29 100644
--- a/pretyping/indrec.ml
+++ b/pretyping/indrec.ml
@@ -136,7 +136,8 @@ let type_rec_branch dep env sigma (vargs,depPvect,decP) tyi cs recargs =
 	      | Param _ :: rest -> (None,rest)
 	      | Norec :: rest   -> (None,rest)
 	      | Imbr _ :: rest  -> 
-		  warning "Ignoring recursive call"; (None,rest) 
+		  Options.if_verbose warning "Ignoring recursive call"; 
+		  (None,rest) 
 	      | Mrec j :: rest -> (depPvect.(j),rest)
 	  in 
           (match optionpos with 
-- 
cgit v1.2.3