Permalink
Browse files

Details.

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@13413 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
  • Loading branch information...
1 parent 559521f commit a2c500f8bc8ef98a33fa55689eb81f2bbd968b93 @pierreweis pierreweis committed Mar 19, 2013
Showing with 12 additions and 12 deletions.
  1. +12 −12 stdlib/printf.ml
View
24 stdlib/printf.ml
@@ -149,21 +149,21 @@ let extract_format fmt start stop widths =
;;
let extract_format_int conv fmt start stop widths =
- let sfmt = extract_format fmt start stop widths in
- match conv with
- | 'n' | 'N' ->
- sfmt.[String.length sfmt - 1] <- 'u';
- sfmt
- | _ -> sfmt
+ let sfmt = extract_format fmt start stop widths in
+ match conv with
+ | 'n' | 'N' ->
+ sfmt.[String.length sfmt - 1] <- 'u';
+ sfmt
+ | _ -> sfmt
;;
let extract_format_float conv fmt start stop widths =
- let sfmt = extract_format fmt start stop widths in
- match conv with
- | 'F' ->
- sfmt.[String.length sfmt - 1] <- 'g';
- sfmt
- | _ -> sfmt
+ let sfmt = extract_format fmt start stop widths in
+ match conv with
+ | 'F' ->
+ sfmt.[String.length sfmt - 1] <- 'g';
+ sfmt
+ | _ -> sfmt
;;
(* Returns the position of the next character following the meta format

0 comments on commit a2c500f

Please sign in to comment.