diff options
| author | Gabriel Scherer <gabriel.scherer@gmail.com> | 2014-05-12 15:38:21 +0000 |
|---|---|---|
| committer | Gabriel Scherer <gabriel.scherer@gmail.com> | 2014-05-12 15:38:21 +0000 |
| commit | ce41f4f9059c65d68631d6b479aef4a1c731d67c (patch) | |
| tree | 5b9d5cff5f81a13c77a83e43e325a2f92ad29847 /stdlib | |
| parent | 2da16025323bca2090e8478139104b4d4891db27 (diff) | |
implement (^^) correctly wrt. string_of_format (Thanks to Pierre Weis)
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@14834 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'stdlib')
| -rw-r--r-- | stdlib/pervasives.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/stdlib/pervasives.ml b/stdlib/pervasives.ml index 7c28eb369..e276fdb5c 100644 --- a/stdlib/pervasives.ml +++ b/stdlib/pervasives.ml @@ -1001,7 +1001,7 @@ external format_of_string : ('a, 'b, 'c, 'd, 'e, 'f) format6 = "%identity" let (^^) (fmt1, str1) (fmt2, str2) = - (CamlinternalFormatBasics.concat_fmt fmt1 fmt2, str1 ^ str2) + (CamlinternalFormatBasics.concat_fmt fmt1 fmt2, str1 ^ "%," ^ str2) (* Miscellaneous *) |