Workaround Windows libc bug (?)

2008-08-22 00:32:37 -05:00 · 2008-08-22 00:32:37 -05:00 · cead05c5d2
parent 271943085d
commit cead05c5d2
1 changed files with 1 additions and 0 deletions
--- 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 ;