core: Add the shuffler words but without primitives.

[factor.git] / extra / trees / avl / avl.factor

diff --git a/extra/trees/avl/avl.factor b/extra/trees/avl/avl.factor
index 7897b6dbe12c2158aa7548d0612bdd63e4ef3af1..380898dae11a61d0503df935df58e295b2bf2641 100644 (file)
--- a/extra/trees/avl/avl.factor
+++ b/extra/trees/avl/avl.factor
@@ -136,7 +136,7 @@ GENERIC: avl-delete ( key node -- node shorter? deleted? )
 M: f avl-delete ( key f -- f f f ) nip f f ;
 
 : (avl-delete) ( key node -- node shorter? deleted? )
-    swap over node-link avl-delete [
+    tuck node-link avl-delete [
         [ over set-node-link ] dip [ balance-delete ] [ f ] if
     ] dip ;