From 8938acb2efc2d9092bdbf4bfd34f694cb96bf301 Mon Sep 17 00:00:00 2001
From: Xavier Leroy <xavier.leroy@inria.fr>
Date: Tue, 29 Jul 2003 09:08:42 +0000
Subject: [PATCH] Retour a %.12g dans string_of_float (PR#1778)

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@5755 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
---
 stdlib/pervasives.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/stdlib/pervasives.ml b/stdlib/pervasives.ml
index 30ed4d48f..e74749939 100644
--- a/stdlib/pervasives.ml
+++ b/stdlib/pervasives.ml
@@ -196,7 +196,7 @@ let valid_float_lexem s =
   loop 0
 ;;
 
-let string_of_float f = valid_float_lexem (format_float "%.17g" f);;
+let string_of_float f = valid_float_lexem (format_float "%.12g" f);;
 
 external float_of_string : string -> float = "float_of_string"