From 24879dc0e59856e297b0172d00d67df67fbb0184 Mon Sep 17 00:00:00 2001
From: ppedrot
Date: Wed, 30 May 2012 16:05:13 +0000
Subject: More uniformisation in Pp.warn functions.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15399 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 interp/topconstr.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'interp')

diff --git a/interp/topconstr.ml b/interp/topconstr.ml
index 824b7f59af..1036baf7c1 100644
--- a/interp/topconstr.ml
+++ b/interp/topconstr.ml
@@ -138,7 +138,7 @@ let fold_constr_expr_with_binders g f n acc = function
 	fold_local_binders g f n'
 	  (fold_local_binders g f n acc t lb) c lb) l acc
   | CCoFix (loc,_,_) ->
-      Pp.warning "Capture check in multiple binders not done"; acc
+      msg_warning (str "Capture check in multiple binders not done"); acc
 
 let free_vars_of_constr_expr c =
   let rec aux bdvars l = function
-- 
cgit v1.2.3