diff options
| -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 |