shuffle: clean up some shuffles

[factor.git] / core / kernel / kernel.factor

diff --git a/core/kernel/kernel.factor b/core/kernel/kernel.factor
index 068fbfd7cbc416653073cc744efd702409eaf48d..9468ea6a9f16b3bbec2472b6fcf9fbfaf4c42435 100644 (file)
--- a/core/kernel/kernel.factor
+++ b/core/kernel/kernel.factor
@@ -117,8 +117,6 @@ DEFER: if
 ! Misfits
 : tuck ( x y -- y x y ) dup -rot ; inline
 
-: spin ( x y z -- z y x ) -rot swap ; inline
-
 : rotd ( w x y z -- x y w z ) [ rot ] dip ; inline
 
 : -rotd ( w x y z -- y w x z ) [ -rot ] dip ; inline
@@ -127,6 +125,10 @@ DEFER: if
 
 : -roll ( w x y z -- z w x y ) swap -rotd ; inline
 
+: spin ( x y z -- z y x ) -rot swap ; inline
+
+: 4spin ( w x y z -- z y x w ) -roll spin ; inline
+
 : nipd ( x y z -- y z ) [ nip ] dip ; inline
 
 : overd ( x y z -- x y x z ) [ over ] dip ; inline