Removing more >r/r> usages

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

diff --git a/basis/shuffle/shuffle.factor b/basis/shuffle/shuffle.factor
index 9a0dfe0e88d6b91d7d97a854f047fb2824dbd03c..b195e4abf903bd261d199d61741af8a4577cc9b7 100644 (file)
--- a/basis/shuffle/shuffle.factor
+++ b/basis/shuffle/shuffle.factor
@@ -4,7 +4,7 @@ USING: kernel generalizations ;
 
 IN: shuffle
 
-: 2swap ( x y z t -- z t x y ) rot >r rot r> ; inline
+: 2swap ( x y z t -- z t x y ) 2 2 mnswap ; inline
 
 : nipd ( a b c -- b c ) rot drop ; inline