         \ NAN: [ fp-nan-payload >hex text ] pprint-prefix
     ] [
         number-base get {
-            { 16 [ "0x" [ >hex ] pprint-prefixed-number ] }
+            { 16 [ [ >hex ] "0x" pprint-prefixed-number ] }
             [ drop number>string text ]
         } case
     ] if ;

    [ "method-generic" word-prop pprint-word ] bi
    block> ;

:: pprint-prefixed-number ( n pre quot: ( n -- n' ) -- )
    n neg?
    [ n neg quot call pre prepend "-" prepend text ]
    [ n quot call pre prepend text ] if ; inline

M: real pprint*
    number-base get {
        { 16 [ "0x" [ >hex ] pprint-prefixed-number ] }
        {  8 [ "0o" [ >oct ] pprint-prefixed-number ] }
        {  2 [ "0b" [ >bin ] pprint-prefixed-number ] }
        [ drop number>string text ]
    } case ;


classes.algebra.private classes.intersection classes.maybe
classes.tuple classes.tuple.private classes.union colors
colors.constants combinators continuations effects generic
hash-sets hashtables io io.pathnames io.styles kernel
make math math.order math.parser namespaces prettyprint.config
prettyprint.custom prettyprint.sections prettyprint.stylesheet
quotations sbufs sequences strings vectors words words.symbol ;
