From d5b5706241ae21548cddb78953da8e0994e9c630 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Fri, 19 Jan 2018 12:13:35 -0800
Subject: [PATCH] game.input.x11: use zip-as.

---
 basis/game/input/x11/x11.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/basis/game/input/x11/x11.factor b/basis/game/input/x11/x11.factor
index 29b7249183..612b0047bf 100644
--- 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 ;