Language change: tuple slot setter words with stack effect ( value object -- ) are...

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

diff --git a/extra/trees/trees.factor b/extra/trees/trees.factor
index 821aceaab14150e430a45ac7c3096a498af8591f..d56e33823451a2de6a0a94085d6c0f66c9d0da99 100644 (file)
--- a/extra/trees/trees.factor
+++ b/extra/trees/trees.factor
@@ -55,7 +55,7 @@ CONSTANT: right 1
     go-left? xor [ left>> ] [ right>> ] if ;
 
 : set-node-link@ ( left parent ? -- ) 
-    go-left? xor [ (>>left) ] [ (>>right) ] if ;
+    go-left? xor [ left<< ] [ right<< ] if ;
 
 : node-link ( node -- child ) f node-link@  ;