factor: use more split/join words

[factor.git] / extra / rosetta-code / align-columns / align-columns.factor

diff --git a/extra/rosetta-code/align-columns/align-columns.factor b/extra/rosetta-code/align-columns/align-columns.factor
index 7c9817c2f64ebeb0de374d588ff8a1c6bf46afa2..84c70190ff4dc60f04cb322221e31779dc25f1e5 100644 (file)
--- a/extra/rosetta-code/align-columns/align-columns.factor
+++ b/extra/rosetta-code/align-columns/align-columns.factor
@@ -44,7 +44,7 @@ Further,$allow$for$each$word$in$a$column$to$be$either$left$
 justified,$right$justified,$or$center$justified$within$its$column."
 
 : split-and-pad ( text -- lines )
-    "\n" split [ "$" split harvest ] map
+    split-lines [ "$" split harvest ] map
     dup longest length
     '[ _ "" pad-tail ] map ;