core: Add words/unwords/unwords-as and use them.

[factor.git] / extra / lcd / lcd.factor

diff --git a/extra/lcd/lcd.factor b/extra/lcd/lcd.factor
index 0ac74a6f92c7a32d156c290bdb3aea323e3d439f..9dffc1603e2138d5955e181e3a41a8e1828e16dd 100644 (file)
--- a/extra/lcd/lcd.factor
+++ b/extra/lcd/lcd.factor
@@ -16,7 +16,7 @@ IN: lcd
     '[ _ lcd-digit ] { } map-as concat ;
 
 : lcd ( digit-str -- string )
-    4 <iota> [ lcd-row ] with map "\n" join ;
+    4 <iota> [ lcd-row ] with map unlines ;
 
 TUPLE: time-display < label timer ;