From: John Benediktsson <mrjbq7@gmail.com>
Date: Sun, 19 Dec 2021 00:05:26 +0000 (-0800)
Subject: prettyprint.backend: fix prettyprinting of special nans.
X-Git-Tag: 0.99~2193
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=5f76289ffc9220ff38accea697433318a5fc816e

prettyprint.backend: fix prettyprinting of special nans.
---

diff --git a/basis/prettyprint/backend/backend.factor b/basis/prettyprint/backend/backend.factor
index 26cc50bd41..56200756c0 100644
--- a/basis/prettyprint/backend/backend.factor
+++ b/basis/prettyprint/backend/backend.factor
@@ -82,18 +82,22 @@ M: real pprint*
         [ unsupported-number-base ]
     } case ;
 
-: pprint-nan? ( f -- ? )
-    { [ fp-nan? ] [ 0/0. fp-bitwise= not ] [ -0/0. fp-bitwise= not ] } 1&& ;
-
 M: float pprint*
-    dup pprint-nan? [
-        \ NAN: [
-            [ fp-nan-payload ] [ fp-sign ] bi
-            [ 0xfffffffffffff bitxor 1 + neg ] when >hex text
-        ] pprint-prefix
-    ] [
-        call-next-method
-    ] if ;
+    {
+        { [ dup 0/0. fp-bitwise= ] [ drop "0/0." text ] }
+        { [ dup -0/0. fp-bitwise= ] [ drop "-0/0." text ] }
+        { [ dup fp-nan? ] [
+            \ NAN: [
+                [ fp-nan-payload ] [ fp-sign ] bi
+                [ 0xfffffffffffff bitxor 1 + neg ] when >hex text
+            ] pprint-prefix
+        ] }
+        { [ dup 1/0. = ] [ drop "1/0." text ] }
+        { [ dup -1/0. = ] [ drop "-1/0." text ] }
+        { [ dup 0.0 fp-bitwise= ] [ drop "0.0" text ] }
+        { [ dup -0.0 fp-bitwise= ] [ drop "-0.0" text ] }
+        [ call-next-method ]
+    } cond ;
 
 M: f pprint* drop \ f pprint-word ;