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

View File

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