steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

game.input.x11: use zip-as.

factor-shell
John Benediktsson 2018-01-19 12:13:35 -08:00
parent 7bec9dcac7
commit d5b5706241
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/game/input/x11/x11.factor
View File

@ -78,7 +78,7 @@ M: linux x>hid-bit-order
} ; inline } ; inline
: x-bits>hid-bits ( bit-array -- bit-array ) : 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 x>hid-bit-order [ nth ] curry map
256 <bit-array> swap [ t swap pick set-nth ] each ; 256 <bit-array> swap [ t swap pick set-nth ] each ;