lcd: fix initial window size by adding one extra space on the right

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

diff --git a/extra/lcd/lcd.factor b/extra/lcd/lcd.factor
index 4083e5c3f012985d4e8899d661cfd024c117a0ff..712ed3c3ccc367e3996b3153dec57ca0cddd7a6f 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 join-lines ;
+    4 <iota> [ lcd-row ] with map join-lines " " append ;
 
 TUPLE: time-display < label timer ;