format-table should not be private since ui.gadgets.grids uses it

db4
Slava Pestov 2008-11-16 15:31:17 -06:00
parent 437d594982
commit fbe29ceca8
1 changed files with 2 additions and 2 deletions
core/io/streams/string

View File

@ -26,12 +26,12 @@ M: null-encoding decode-char drop stream-read1 ;
: map-last ( seq quot -- seq )
>r dup length <reversed> [ zero? ] r> compose 2map ; inline
PRIVATE>
: format-table ( table -- seq )
flip [ format-column ] map-last
flip [ " " join ] map ;
PRIVATE>
M: growable dispose drop ;
M: growable stream-write1 push ;