diff options
author | ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-06-04 17:18:31 +0000 |
---|---|---|
committer | ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-06-04 17:18:31 +0000 |
commit | 0f500f2e7a3164df44a2b20e67550cb0072d8948 (patch) | |
tree | 9847b7c9d731864df0ad8a9d732fd7780a448a60 /pretyping/indrec.ml | |
parent | 12f77536d29e6b6eeb2f1d065a805d353d197de9 (diff) |
Replacing some str with strbrk
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15422 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/indrec.ml')
-rw-r--r-- | pretyping/indrec.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/indrec.ml b/pretyping/indrec.ml index e9d6a3c29..0bd9e95ac 100644 --- a/pretyping/indrec.ml +++ b/pretyping/indrec.ml @@ -160,7 +160,7 @@ let type_rec_branch is_rec dep env sigma (vargs,depPvect,decP) tyi cs recargs = (match dest_recarg ra with | Mrec (_,j) when is_rec -> (depPvect.(j),rest) | Imbr _ -> - Flags.if_warn msg_warning (str "Ignoring recursive call"); + Flags.if_warn msg_warning (strbrk "Ignoring recursive call"); (None,rest) | _ -> (None, rest)) in |