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

The added space balances the space on the left of every digit, which makes
for the symmetric initial window size.

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 ;