factor: swap over is `tuck`

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

diff --git a/basis/game/input/gtk/gtk.factor b/basis/game/input/gtk/gtk.factor
index 56f6be182b85523cfc7bfe35cc2a72ecf442d72f..93b486087409d3285b8a7b44dd1c40e1360e6246 100644 (file)
--- a/basis/game/input/gtk/gtk.factor
+++ b/basis/game/input/gtk/gtk.factor
@@ -22,7 +22,7 @@ TUPLE: linux-controller < controller path meta state thread fd buttons quit? ;
         dup meta>> "path" of binary <file-reader> handle>> fd>> >>fd
         H{ } clone >>state
         dup meta>> "capabilities" of EV_KEY of keys seq>explode-positions >>buttons ; inline
-        ! swap over state>> '[ _ _ read-events ] in-thread ;
+        ! tuck state>> '[ _ _ read-events ] in-thread ;
 
 M: linux-controller dispose* fd>> close drop ;