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

strings.tables: fixing issue slicing empty arrays.

db4
John Benediktsson 2012-07-13 22:11:58 -07:00
parent 01dddd5381
commit e23883d07e
1 changed files with 5 additions and 3 deletions
basis/strings/tables

8
basis/strings/tables/tables.factor
View File

@ -17,6 +17,8 @@ IN: strings.tables
PRIVATE>
: format-table ( table -- seq )
[ [ string-lines ] map format-row flip ] map concat
flip [ but-last-slice [ format-column ] map! drop ] keep
flip [ " " join ] map! ;
[ [ string-lines ] map format-row flip ] map concat flip
[ { } ] [
[ but-last-slice [ format-column ] map! drop ] keep
flip [ " " join ] map!
] if-empty ;