Render table rows statically.

table.scm

@@ -201,7 +201,12 @@
 	 (cell-border (get-keyword #:cell-border args (lambda () #f)))
 	 (border-style (get-keyword #:border-style args (lambda () 'ascii)))
 	 (table (table-prepare tbl)))
-     ""))
+     (string-intersperse
+      (flatten
+       (map (lambda (row)
+	      (table-row->lines row "]" "|" "["))
+	    table))
+      "\n")))
 
  ;; Performs module self-tests
  (define (table-tests!)
@@ -255,3 +260,8 @@
 
 (import table)
 (table-tests!)
+
+(print
+ (table->string
+  '(("a" "bb" "ccc" "")
+    ("" "b" "z" "x"))))