money: more of this should be public.

extra/money/money.factor

@@ -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! ;