]> gitweb.factorcode.org Git - factor.git/commitdiff
prettyprint.backend: allow octal and binary float printing.
authorJohn Benediktsson <mrjbq7@gmail.com>
Sun, 11 Jun 2017 17:54:13 +0000 (10:54 -0700)
committerJohn Benediktsson <mrjbq7@gmail.com>
Sun, 11 Jun 2017 17:54:13 +0000 (10:54 -0700)
basis/prettyprint/backend/backend.factor

index 2415bb6da9b982ee16352a88e4d11ff47f181daf..0fd99e7e0b39c586a2899f7755cc478d9fb22463 100644 (file)
@@ -85,11 +85,7 @@ M: float pprint*
     dup fp-nan? [
         \ NAN: [ fp-nan-payload >hex text ] pprint-prefix
     ] [
-        number-base get {
-            { 10 [ number>string text ] }
-            { 16 [ [ >hex ] "0x" pprint-prefixed-number ] }
-            [ unsupported-number-base ]
-        } case
+        call-next-method
     ] if ;
 
 M: f pprint* drop \ f pprint-word ;