math.parser, print NaN signs

diff --git a/core/math/parser/parser.factor b/core/math/parser/parser.factor
index 0d23c5bbd8b1e129b0014307bd8e980964eef95c..9646401a667bbc8c2f214239fd8ed2c51f1eb34e 100644 (file)
--- a/core/math/parser/parser.factor
+++ b/core/math/parser/parser.factor
@@ -563,7 +563,7 @@ PRIVATE>
 
 M: float >base
     {
-        { [ over fp-nan? ] [ 2drop "0/0." ] }
+        { [ over fp-nan? ] [ drop fp-sign "-0/0." "0/0." ? ] }
         { [ over 1/0. =  ] [ 2drop "1/0." ] }
         { [ over -1/0. = ] [ 2drop "-1/0." ] }
         { [ over  0.0 fp-bitwise= ] [ 2drop  "0.0" ] }