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

doh... changing assoc out from under assoc-each = bad

db4
U-VICTORIA\Administrator 2008-07-26 22:29:11 -07:00
parent 1c7b117581
commit f053c25875
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/game-input/backend/dinput/dinput.factor
View File

@ -126,9 +126,9 @@ SYMBOLS: +dinput+ +keyboard-device+ +keyboard-state+
find-controllers ; find-controllers ;
: find-and-remove-detached-devices ( -- ) : find-and-remove-detached-devices ( -- )
+controller-devices+ get [ +controller-devices+ get keys
drop dup device-attached? [ drop ] [ remove-controller ] if [ device-attached? not ] filter
] assoc-each ; [ remove-controller ] each ;
: device-interface? ( dbt-broadcast-hdr -- ? ) : device-interface? ( dbt-broadcast-hdr -- ? )
DEV_BROADCAST_HDR-dbch_devicetype DBT_DEVTYP_DEVICEINTERFACE = ; DEV_BROADCAST_HDR-dbch_devicetype DBT_DEVTYP_DEVICEINTERFACE = ;