Permalink
Browse files

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
  • Loading branch information...
1 parent 2da1602 commit ce41f4f9059c65d68631d6b479aef4a1c731d67c @gasche gasche committed May 12, 2014
Showing with 1 addition and 1 deletion.
  1. +1 −1 stdlib/pervasives.ml
View
@@ -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 *)

0 comments on commit ce41f4f

Please sign in to comment.