Language change: tuple slot setter words with stack effect ( value object -- ) are...

[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 585ca2d16fa4b573646649f15c98bd9142128397..b236442e9d26afb8a9e3321c612aa84171d8b8ec 100644 (file)
--- a/extra/key-caps/key-caps.factor
+++ b/extra/key-caps/key-caps.factor
@@ -158,7 +158,7 @@ M: key-caps-gadget pref-dim* drop KEYBOARD-SIZE ;
 
 : update-key-caps-state ( gadget -- )
     read-keyboard keys>> over keys>> 
-    [ [ (>>selected?) ] [ drop ] if* ] 2each 
+    [ [ selected?<< ] [ drop ] if* ] 2each 
     relayout-1 ;
 
 M: key-caps-gadget graft*