diff options
| author | Gabriel Scherer <gabriel.scherer@gmail.com> | 2014-05-12 15:38:05 +0000 |
|---|---|---|
| committer | Gabriel Scherer <gabriel.scherer@gmail.com> | 2014-05-12 15:38:05 +0000 |
| commit | 39ab064bafcc9b1f0d9e81bdbc4656f0edf13775 (patch) | |
| tree | 2001bb705411c5bde8f892399d3a4f4677debf9f /stdlib/camlinternalFormat.ml | |
| parent | 6a8f12080bd96330718d0e40afba4f6e1d065230 (diff) | |
| download | ocaml-39ab064bafcc9b1f0d9e81bdbc4656f0edf13775.tar.gz | |
introduce type aliases for simple padding and precision types
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@14825 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'stdlib/camlinternalFormat.ml')
| -rw-r--r-- | stdlib/camlinternalFormat.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/stdlib/camlinternalFormat.ml b/stdlib/camlinternalFormat.ml index 7d8920b3a4..4e5e69b3d3 100644 --- a/stdlib/camlinternalFormat.ml +++ b/stdlib/camlinternalFormat.ml @@ -1468,7 +1468,7 @@ let fmt_ebb_of_string str = else incompatible_flag pct_ind str_ind symb "0" in - (* Get padding as an int option (see "%_", "%{", "%(" and "%["). + (* Get padding as a pad_option (see "%_", "%{", "%(" and "%["). (no need for legacy mode tweaking, those were rejected by the legacy parser as well) *) let get_pad_opt c = match get_pad () with @@ -1483,7 +1483,7 @@ let fmt_ebb_of_string str = | Arg_padding _ -> incompatible_flag pct_ind str_ind c "'*'" in - (* Get precision as an int option (see "%_f"). + (* Get precision as a prec_option (see "%_f"). (no need for legacy mode tweaking, those were rejected by the legacy parser as well) *) let get_prec_opt () = match get_prec () with |