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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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