Updating code for make and fry changes

[factor.git] / extra / key-caps / key-caps.factor

diff --git a/extra/key-caps/key-caps.factor b/extra/key-caps/key-caps.factor
index e14a46a967cb4a51bd6058bee593ab11ebd3cf32..0865b0ada2feb696db288220b96a755a365a1e97 100755 (executable)
--- a/extra/key-caps/key-caps.factor
+++ b/extra/key-caps/key-caps.factor
@@ -162,7 +162,7 @@ M: key-caps-gadget pref-dim* drop KEYBOARD-SIZE ;
     relayout-1 ;
 
 M: key-caps-gadget graft*
-    dup '[ , update-key-caps-state ] FREQUENCY every >>alarm
+    dup '[ _ update-key-caps-state ] FREQUENCY every >>alarm
     drop ;
 
 M: key-caps-gadget ungraft*