money: more of this should be public.

locals-and-roots
John Benediktsson 2016-04-19 07:29:42 -07:00
parent 9439c5a684
commit eb4bbab417
1 changed files with 0 additions and 8 deletions

View File

@ -7,8 +7,6 @@ IN: money
SYMBOL: currency-token
CHAR: $ currency-token set-global
<PRIVATE
: dollars/cents ( dollars -- dollars cents )
100 * 100 /mod round ;
@ -17,8 +15,6 @@ CHAR: $ currency-token set-global
[ <reversed> 3 group "," join <reversed> ]
[ 2 CHAR: 0 pad-head ] bi* "." glue ;
PRIVATE>
: money>string ( number -- string )
dollars/cents format-money currency-token get prefix ;
@ -26,8 +22,6 @@ PRIVATE>
ERROR: not-an-integer x ;
<PRIVATE
: split-decimal ( str -- neg? dollars cents )
"." split1 [ "-" ?head swap ] dip ;
@ -37,6 +31,4 @@ ERROR: not-an-integer x ;
[ dup string>number [ nip ] [ not-an-integer ] if* ] bi@
] keep length 10^ / + swap [ neg ] when ;
PRIVATE>
SYNTAX: DECIMAL: scan-token parse-decimal suffix! ;