nip most uses of tuck from extra

[factor.git] / extra / key-handlers / key-handlers.factor

diff --git a/extra/key-handlers/key-handlers.factor b/extra/key-handlers/key-handlers.factor
index b5171bece01aac07060274a3e334365050b852d7..fafd68ca68db138d274012732a812e1a9e247ffa 100644 (file)
--- a/extra/key-handlers/key-handlers.factor
+++ b/extra/key-handlers/key-handlers.factor
@@ -7,4 +7,4 @@ TUPLE: key-handler < border handlers ;
 : <keys> ( gadget -- key-handler ) key-handler new-border { 0 0 } >>size ;
 
 M: key-handler handle-gesture
-    tuck handlers>> at [ call( gadget -- ) f ] [ drop t ] if* ;
\ No newline at end of file
+    [ handlers>> at ] keep swap [ call( gadget -- ) f ] [ drop t ] if* ;