core/basis/extra: using while* in a few places.

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

diff --git a/extra/trees/trees.factor b/extra/trees/trees.factor
index b9b00e2b47a092c4420b07a68dd39d9cc933349c..b43da272dd3698ec38732400637acd66712eaaa2 100644 (file)
--- a/extra/trees/trees.factor
+++ b/extra/trees/trees.factor
@@ -238,10 +238,10 @@ PRIVATE>
     [ root>> (nodepath-at) ] { } make ;
 
 : right-extremity ( node -- node' )
-    [ dup right>> dup ] [ nip ] while drop ;
+    [ dup right>> ] [ nip ] while* ;
 
 : left-extremity ( node -- node' )
-    [ dup left>> dup ] [ nip ] while drop ;
+    [ dup left>> ] [ nip ] while* ;
 
 : lower-node-in-child? ( key node -- ? )
     [ nip left>> ] [ key>> = ] 2bi and ;