Change tabular-output and smash-pane behavior to fix panes unit tests; re-organize...

[factor.git] / basis / io / styles / styles.factor

diff --git a/basis/io/styles/styles.factor b/basis/io/styles/styles.factor
index 8e93dc945015c3cb07d9edd761cb68cfc6b0a397..55dc6ca9a4dbeb70503aa6297ba9e3664928271e 100644 (file)
--- a/basis/io/styles/styles.factor
+++ b/basis/io/styles/styles.factor
@@ -97,7 +97,7 @@ M: plain-writer make-block-stream
     nip <ignore-close-stream> ;
 
 M: plain-writer stream-write-table
-    [ drop format-table [ print ] each ] with-output-stream* ;
+    [ drop format-table [ nl ] [ write ] interleave ] with-output-stream* ;
 
 M: plain-writer make-cell-stream 2drop <string-writer> ;