Fixing everything for mandatory stack effects

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

diff --git a/extra/trees/splay/splay.factor b/extra/trees/splay/splay.factor
index ef5fcf8ca68ffc5eb31f5b208a5b63f2cd2f7749..923df4b6e3e3e628f47f1fc7eb65b5e2fef32028 100755 (executable)
--- a/extra/trees/splay/splay.factor
+++ b/extra/trees/splay/splay.factor
@@ -84,7 +84,7 @@ DEFER: (splay)
 : get-largest ( node -- node )
     dup [ dup node-right [ nip get-largest ] when* ] when ;
 
-: splay-largest
+: splay-largest ( node -- node )
     dup [ dup get-largest node-key swap splay-at ] when ;
 
 : splay-join ( n2 n1 -- node )