shuffle: clean up some shuffles

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

diff --git a/basis/shuffle/shuffle.factor b/basis/shuffle/shuffle.factor
index a82e11a50cdd3d10c6edd16d5ca46e83cf1ae214..5c9a62cd090b740c7cc09364e99fa847b8c94246 100644 (file)
--- a/basis/shuffle/shuffle.factor
+++ b/basis/shuffle/shuffle.factor
@@ -28,3 +28,5 @@ SYNTAX: shuffle(
 : 2reach ( v w x y z -- v w x y z v w ) 5 npick 5 npick ; inline
 
 : nipdd ( w x y z -- x y z ) roll drop ; inline
+
+: spind ( w x y z -- y x w z ) [ spin ] dip ; inline