Workaround Windows libc bug (?)

diff --git a/core/math/parser/parser.factor b/core/math/parser/parser.factor
index 78705266ee27a1c2b844e052ea6ab5c8b8f67318..05e267f0356aad477d1adcfeb40c3dd53b4826e0 100755 (executable)
--- a/core/math/parser/parser.factor
+++ b/core/math/parser/parser.factor
@@ -147,6 +147,7 @@ M: float >base
         { [ dup fp-nan? ] [ drop "0.0/0.0" ] }
         { [ dup 1.0/0.0 = ] [ drop "1.0/0.0" ] }
         { [ dup -1.0/0.0 = ] [ drop "-1.0/0.0" ] }
+        { [ dup double>bits HEX: 8000000000000000 = ] [ drop "-0.0" ] }
         [ float>string fix-float ]
     } cond ;