From cead05c5d26f4c0fc2f5f866c75240a685b539dd Mon Sep 17 00:00:00 2001
From: "U-SLAVA-DFB8FF805\\Slava" <Slava@slava-dfb8ff805.(none)>
Date: Fri, 22 Aug 2008 00:32:37 -0500
Subject: [PATCH] Workaround Windows libc bug (?)

---
 core/math/parser/parser.factor | 1 +
 1 file changed, 1 insertion(+)

diff --git a/core/math/parser/parser.factor b/core/math/parser/parser.factor
index 78705266ee..05e267f035 100755
--- 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 ;