strings.tables: fixing issue slicing empty arrays.

diff --git a/basis/strings/tables/tables.factor b/basis/strings/tables/tables.factor
index f45a693576791d42c76dbafc5ed2d5d2ea589680..83a121352591a36d3ad77ca84816a6bfce7afe54 100644 (file)
--- a/basis/strings/tables/tables.factor
+++ b/basis/strings/tables/tables.factor
@@ -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 ;