sequences.extras: Add find-pred

[factor.git] / basis / shuffle / shuffle.factor

diff --git a/basis/shuffle/shuffle.factor b/basis/shuffle/shuffle.factor
index d4619b1c5fc310efa49e85f9e8fbe924aa224d4d..3baa5721233e8c2c30b88e6a1f371e7c9df87c61 100644 (file)
--- a/basis/shuffle/shuffle.factor
+++ b/basis/shuffle/shuffle.factor
@@ -15,3 +15,5 @@ SYNTAX: shuffle(
     ")" parse-effect suffix! \ shuffle-effect suffix! ;
 
 : 2swap ( x y z t -- z t x y ) 2 2 mnswap ; inline
+
+: 2pick ( x y z t -- x y z t x y ) reach reach ; inline