core: Add the shuffler words but without primitives.

[factor.git] / basis / io / backend / unix / multiplexers / epoll / epoll.factor

diff --git a/basis/io/backend/unix/multiplexers/epoll/epoll.factor b/basis/io/backend/unix/multiplexers/epoll/epoll.factor
index ba5802fc7ce1cc9691f8160bd031e1e4c021f644..9921b483f503d5fa807b93f537f3f0b8d1383884 100644 (file)
--- a/basis/io/backend/unix/multiplexers/epoll/epoll.factor
+++ b/basis/io/backend/unix/multiplexers/epoll/epoll.factor
@@ -23,7 +23,7 @@ M: epoll-mx dispose* fd>> close-file ;
 : make-event ( fd events -- event )
     epoll-event <struct>
         swap >>events
-        swap over data>> fd<< ;
+        tuck data>> fd<< ;
 
 :: do-epoll-ctl ( fd mx what events -- )
     mx fd>> what fd fd events make-event epoll_ctl io-error ;