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

[factor.git] / basis / game / input / xinput / xinput.factor

diff --git a/basis/game/input/xinput/xinput.factor b/basis/game/input/xinput/xinput.factor
index 32c2cd47bfb7339e11c68310902c91e6f2319218..800b2c4720376451084509fbcbcd66eb7a9a52a5 100644 (file)
--- a/basis/game/input/xinput/xinput.factor
+++ b/basis/game/input/xinput/xinput.factor
@@ -56,14 +56,14 @@ MACRO: map-index-compose ( seq quot -- seq )
 : fill-controller-state ( XINPUT_STATE -- controller-state )
     Gamepad>> controller-state new dup rot
     {
-        [ wButtons>> HEX: f bitand >pov swap (>>pov) ]
-        [ wButtons>> fill-buttons swap (>>buttons) ]
-        [ sThumbLX>> >axis swap (>>x) ]
-        [ sThumbLY>> >axis swap (>>y) ]
-        [ sThumbRX>> >axis swap (>>rx) ]
-        [ sThumbRY>> >axis swap (>>ry) ]
-        [ bLeftTrigger>> >trigger swap (>>z) ]
-        [ bRightTrigger>> >trigger swap (>>rz) ]
+        [ wButtons>> HEX: f bitand >pov swap pov<< ]
+        [ wButtons>> fill-buttons swap buttons<< ]
+        [ sThumbLX>> >axis swap x<< ]
+        [ sThumbLY>> >axis swap y<< ]
+        [ sThumbRX>> >axis swap rx<< ]
+        [ sThumbRY>> >axis swap ry<< ]
+        [ bLeftTrigger>> >trigger swap z<< ]
+        [ bRightTrigger>> >trigger swap rz<< ]
     } 2cleave ;
 PRIVATE>