math.parser: fix edge case for float>dec

[factor.git] / core / math / parser / parser.factor

diff --git a/core/math/parser/parser.factor b/core/math/parser/parser.factor
index e1754e4e07d8d430f91d8a806f72a9a86866ba46..2e1d5a4b0f4dd3447665859e70d5587088e8ecd5 100644 (file)
--- a/core/math/parser/parser.factor
+++ b/core/math/parser/parser.factor
@@ -993,7 +993,7 @@ CONSTANT: lookup-table {
 
 : general-format ( s f e -- str )
     swap >dec [ length ] keep
-    2over swap [ + ] [ neg ] bi [ 1 max ] bi@ + 17 >
+    2over swap [ + ] [ neg ] bi [ 0 max ] [ 1 max ] bi* + 17 >
     [ exponential-format ] [ decimal-format ] if ; inline
 
 : float>dec ( n -- str )