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

Add iota call in game.input.dinput fill-mouse-state.

db4
erikc 2010-01-21 18:39:23 -08:00
parent 97668156d9
commit 407399b86a
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/dinput/dinput.factor
View File

@ -314,7 +314,7 @@ CONSTANT: pov-values
} case ; } case ;
: fill-mouse-state ( buffer count -- state ) : fill-mouse-state ( buffer count -- state )
[ +mouse-state+ get ] 2dip swap [ nth (fill-mouse-state) ] curry each ; iota [ +mouse-state+ get ] 2dip swap [ nth (fill-mouse-state) ] curry each ;
: get-device-state ( device DIJOYSTATE2 -- ) : get-device-state ( device DIJOYSTATE2 -- )
[ dup IDirectInputDevice8W::Poll ole32-error ] dip [ dup IDirectInputDevice8W::Poll ole32-error ] dip