linux.input-events: simplify input-events-assoc.

diff --git a/extra/linux/input-events/input-events.factor b/extra/linux/input-events/input-events.factor
index 4a2096fc4848c9d8bcb19f4cc585f3d271d00f9c..eaaabeb677e4fcf0c1b37b162f14f8e426da8528 100644 (file)
--- a/extra/linux/input-events/input-events.factor
+++ b/extra/linux/input-events/input-events.factor
@@ -10,10 +10,8 @@ FROM: io => read ;
 IN: linux.input-events
 
 : input-events-assoc ( path -- assoc )
-    dup '[
-        _ qualified-directory-files
-        [ read-link normalize-path ] map-zip
-    ] with-directory ;
+    qualified-directory-files
+    [ read-link normalize-path ] map-zip ;
 
 : input-events-by-id-assoc ( -- assoc )
     "/dev/input/by-id/" input-events-assoc ;