diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 2003-06-23 12:51:18 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 2003-06-23 12:51:18 +0000 |
| commit | e697df642bc7c6bcaa430cac9dc044740914989e (patch) | |
| tree | 5224b7ba6dab15ad38a37e0ed3d8fa90477228f0 /stdlib | |
| parent | bf98f04b12eee3442039735a2c70fa61c14acb27 (diff) | |
string_of_float: 17 digits au lieu de 18 (18 donne des resultats tres moches sous Linux)
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@5615 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 588761e89..8a7381999 100644 --- a/stdlib/pervasives.ml +++ b/stdlib/pervasives.ml @@ -195,7 +195,7 @@ let valid_float_lexem s = loop 0 ;; -let string_of_float f = valid_float_lexem (format_float "%.18g" f);; +let string_of_float f = valid_float_lexem (format_float "%.17g" f);; external float_of_string : string -> float = "float_of_string" |