diff options
| author | filliatr | 2002-01-21 10:09:40 +0000 |
|---|---|---|
| committer | filliatr | 2002-01-21 10:09:40 +0000 |
| commit | 40e8696da9ad06515e20cf438c2d19b76d73eabe (patch) | |
| tree | b3a965683e47518b2165b862a902b8c10350d489 | |
| parent | a275d218ee58185d55bbd702b36e4d63cb33670d (diff) | |
warning en mode verbeux seulement
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2422 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | pretyping/indrec.ml | 3 |
1 files changed, 2 insertions, 1 deletions
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 |