kernel: fix stack effect for -rotd.

diff --git a/core/kernel/kernel.factor b/core/kernel/kernel.factor
index cf1cf2a19270e33a26bf45da435c876dd74ef787..7a7db309485a6dffd171374bde136ab67a43864a 100644 (file)
--- a/core/kernel/kernel.factor
+++ b/core/kernel/kernel.factor
@@ -123,7 +123,7 @@ DEFER: if
 
 : rotd ( w x y z -- x y w z ) [ rot ] dip ; inline
 
-: -rotd ( w x y z -- w z x y ) [ -rot ] dip ; inline
+: -rotd ( w x y z -- y w x z ) [ -rot ] dip ; inline
 
 : roll ( w x y z -- x y z w ) rotd swap ; inline