format-table should not be private since ui.gadgets.grids uses it
parent
437d594982
commit
fbe29ceca8
core/io/streams/string
|
@ -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 ;
|
||||
|
|
Loading…
Reference in New Issue