prettyprinter, print defaults NaNs as "[-]0/0."

diff --git a/basis/prettyprint/backend/backend.factor b/basis/prettyprint/backend/backend.factor
index 1d7434ee29f610cabe8bac853b43d3e134ce0700..4bf3938485160591649e77bc8ac7c54fa523a5b9 100644 (file)
--- a/basis/prettyprint/backend/backend.factor
+++ b/basis/prettyprint/backend/backend.factor
@@ -81,8 +81,11 @@ M: real pprint*
         [ unsupported-number-base ]
     } case ;
 
+: payload-nan? ( f -- ? )
+    dup fp-nan? [ fp-nan-payload 0x8000000000000 = not ] [ drop f ] if ;
+
 M: float pprint*
-    dup fp-nan? [
+    dup payload-nan? [
         \ NAN: [ double>bits >hex text ] pprint-prefix
     ] [
         call-next-method