diff options
| author | ppedrot | 2012-06-04 17:18:31 +0000 |
|---|---|---|
| committer | ppedrot | 2012-06-04 17:18:31 +0000 |
| commit | 0f500f2e7a3164df44a2b20e67550cb0072d8948 (patch) | |
| tree | 9847b7c9d731864df0ad8a9d732fd7780a448a60 /printing/printer.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 'printing/printer.ml')
| -rw-r--r-- | printing/printer.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/printing/printer.ml b/printing/printer.ml index 54e78a7163..d697ab9335 100644 --- a/printing/printer.ml +++ b/printing/printer.ml @@ -480,7 +480,7 @@ let pr_prim_rule = function (str"fix " ++ pr_id f ++ str"/" ++ int n) | FixRule (f,n,others,j) -> - if j<>0 then msg_warning (str "Unsupported printing of \"fix\""); + if j<>0 then msg_warning (strbrk "Unsupported printing of \"fix\""); let rec print_mut = function | (f,n,ar)::oth -> pr_id f ++ str"/" ++ int n ++ str" : " ++ pr_lconstr ar ++ print_mut oth @@ -492,7 +492,7 @@ let pr_prim_rule = function (str"cofix " ++ pr_id f) | Cofix (f,others,j) -> - if j<>0 then msg_warning (str "Unsupported printing of \"fix\""); + if j<>0 then msg_warning (strbrk "Unsupported printing of \"fix\""); let rec print_mut = function | (f,ar)::oth -> (pr_id f ++ str" : " ++ pr_lconstr ar ++ print_mut oth) |