new accessors

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

diff --git a/extra/lcd/lcd.factor b/extra/lcd/lcd.factor
index d1646a408990f9628ec87b6e69aabf0907975c9b..8123576f5e9524d0031b21b59b30cccaae47f64e 100755 (executable)
--- a/extra/lcd/lcd.factor
+++ b/extra/lcd/lcd.factor
@@ -26,7 +26,7 @@ IN: lcd
 : <time-display> ( timestamp -- gadget )
     [ hh:mm:ss lcd ] <filter> <label-control>
     "99:99:99" lcd over set-label-string
-    monospace-font over set-label-font ;
+    monospace-font >>font ;
 
 : time-window ( -- )
     [ time get <time-display> "Time" open-window ] with-ui ;