From f053c25875bed6a1704dfbbae3e43c87485d0926 Mon Sep 17 00:00:00 2001
From: "U-VICTORIA\\Administrator" <Administrator@victoria.(none)>
Date: Sat, 26 Jul 2008 22:29:11 -0700
Subject: [PATCH] doh... changing assoc out from under assoc-each = bad

---
 extra/game-input/backend/dinput/dinput.factor | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/extra/game-input/backend/dinput/dinput.factor b/extra/game-input/backend/dinput/dinput.factor
index 47c8df7051..69b2d41962 100755
--- a/extra/game-input/backend/dinput/dinput.factor
+++ b/extra/game-input/backend/dinput/dinput.factor
@@ -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 = ;