steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

prettyprint.backend: can't use locals

db4
Joe Groff 2011-11-23 20:20:27 -08:00
parent 07abeee9d9
commit 13f27f3d9e
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
basis/prettyprint/backend/backend.factor
View File

@ -4,7 +4,7 @@ USING: accessors arrays assocs byte-arrays byte-vectors classes
classes.algebra.private classes.intersection classes.maybe classes.algebra.private classes.intersection classes.maybe
classes.tuple classes.tuple.private classes.union colors classes.tuple classes.tuple.private classes.union colors
colors.constants combinators continuations effects generic colors.constants combinators continuations effects generic
hash-sets hashtables io io.pathnames io.styles kernel locals hash-sets hashtables io io.pathnames io.styles kernel
make math math.order math.parser namespaces prettyprint.config make math math.order math.parser namespaces prettyprint.config
prettyprint.custom prettyprint.sections prettyprint.stylesheet prettyprint.custom prettyprint.sections prettyprint.stylesheet
quotations sbufs sequences strings vectors words words.symbol ; quotations sbufs sequences strings vectors words words.symbol ;
@ -63,16 +63,16 @@ M: method pprint*
[ "method-generic" word-prop pprint-word ] bi [ "method-generic" word-prop pprint-word ] bi
block> ; block> ;
:: pprint-prefixed-number ( n pre quot: ( n -- n' ) -- ) : pprint-prefixed-number ( n quot: ( n -- n' ) pre -- )
n neg? pick neg?
[ n neg quot call pre prepend "-" prepend text ] [ [ neg ] [ call ] [ prepend ] tri* "-" prepend text ]
[ n quot call pre prepend text ] if ; inline [ [ call ] [ prepend ] bi* text ] if ; inline
M: real pprint* M: real pprint*
number-base get { number-base get {
{ 16 [ "0x" [ >hex ] pprint-prefixed-number ] } { 16 [ [ >hex ] "0x" pprint-prefixed-number ] }
{ 8 [ "0o" [ >oct ] pprint-prefixed-number ] } { 8 [ [ >oct ] "0o" pprint-prefixed-number ] }
{ 2 [ "0b" [ >bin ] pprint-prefixed-number ] } { 2 [ [ >bin ] "0b" pprint-prefixed-number ] }
[ drop number>string text ] [ drop number>string text ]
} case ; } case ;
@ -81,7 +81,7 @@ M: float pprint*
\ NAN: [ fp-nan-payload >hex text ] pprint-prefix \ NAN: [ fp-nan-payload >hex text ] pprint-prefix
] [ ] [
number-base get { number-base get {
{ 16 [ "0x" [ >hex ] pprint-prefixed-number ] } { 16 [ [ >hex ] "0x" pprint-prefixed-number ] }
[ drop number>string text ] [ drop number>string text ]
} case } case
] if ; ] if ;