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

[factor.git] / extra / quadtrees / quadtrees.factor

diff --git a/extra/quadtrees/quadtrees.factor b/extra/quadtrees/quadtrees.factor
index 7c2bdd0d28007546253a9b696c72f5651ae1da9e..ab0e9bda23bcda7b42c39188a0b3333f5ee2907a 100644 (file)
--- a/extra/quadtrees/quadtrees.factor
+++ b/extra/quadtrees/quadtrees.factor
@@ -80,7 +80,7 @@ DEFER: in-rect*
 
 : leaf-insert ( value point leaf -- )
     2dup leaf-replaceable?
-    [ [ (>>point) ] [ (>>value) ] bi ]
+    [ [ point<< ] [ value<< ] bi ]
     [ split-leaf ] if ;
 
 : node-insert ( value point node -- )