game.input.x11: use zip-as.

diff --git a/basis/game/input/x11/x11.factor b/basis/game/input/x11/x11.factor
index 29b724918355703dd4d638f593fba027797daa52..612b0047bf5c12be422f759a20d76efaac564903 100644 (file)
--- a/basis/game/input/x11/x11.factor
+++ b/basis/game/input/x11/x11.factor
@@ -78,7 +78,7 @@ M: linux x>hid-bit-order
     } ; inline
 
 : x-bits>hid-bits ( bit-array -- bit-array )
-    256 <iota> [ 2array ] { } 2map-as [ first ] filter values
+    256 <iota> { } zip-as [ first ] filter values
     x>hid-bit-order [ nth ] curry map
     256 <bit-array> swap [ t swap pick set-nth ] each ;