prettyprint.backend: allow octal and binary float printing.

modern-harvey2
John Benediktsson 2017-06-11 10:54:13 -07:00
parent 3018010f67
commit 634df46db9
1 changed files with 1 additions and 5 deletions

View 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 ;