diff options
Diffstat (limited to 'UTF8.ml')
-rwxr-xr-x | UTF8.ml | 12 |
1 files changed, 12 insertions, 0 deletions
@@ -38,3 +38,15 @@ module Printf = struct include Printf
end
+
+module Format = struct
+
+ include Format
+
+ let bprintf buffer fformat = begin
+ let to_b = formatter_of_buffer buffer in
+ let x = fprintf to_b fformat in
+ x
+ end
+
+end
|