core: Add the shuffler words but without primitives.

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

diff --git a/extra/trees/trees.factor b/extra/trees/trees.factor
index 905ed6d9f199df36f7eb1c0e3cb6033b32dfb1fb..b9b00e2b47a092c4420b07a68dd39d9cc933349c 100644 (file)
--- a/extra/trees/trees.factor
+++ b/extra/trees/trees.factor
@@ -320,7 +320,7 @@ DEFER: delete-node
 
 : (prune-extremity) ( parent node -- new-extremity )
     dup node-link [
-        [ nip ] dip (prune-extremity)
+        nipd (prune-extremity)
     ] [
         [ delete-node swap set-node-link ] keep
     ] if* ;