Delete empty unit tests files, remove 1- and 1+, reorder IN: lines in a lot of places...

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

diff --git a/extra/trees/trees.factor b/extra/trees/trees.factor
index 4efea6ae427944efe9b40b90a9236ee549ec3e84..62f4d8fce4ba9367bd7af9c1018e8e0a7be9ed37 100755 (executable)
--- a/extra/trees/trees.factor
+++ b/extra/trees/trees.factor
@@ -41,9 +41,9 @@ CONSTANT: right 1
 
 : go-left? ( -- ? ) current-side get left eq? ;
 
-: inc-count ( tree -- ) [ 1+ ] change-count drop ;
+: inc-count ( tree -- ) [ 1 + ] change-count drop ;
 
-: dec-count ( tree -- ) [ 1- ] change-count drop ;
+: dec-count ( tree -- ) [ 1 - ] change-count drop ;
 
 : node-link@ ( node ? -- node )
     go-left? xor [ left>> ] [ right>> ] if ;