X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=extra%2Ftrees%2Ftrees.factor;h=62f4d8fce4ba9367bd7af9c1018e8e0a7be9ed37;hp=4efea6ae427944efe9b40b90a9236ee549ec3e84;hb=3f3d57032bf29190e9bee12d168a4bce6d74653c;hpb=cd1bb8f4c8afba318249c7b756a45aa1c46ea51e

diff --git a/extra/trees/trees.factor b/extra/trees/trees.factor
index 4efea6ae42..62f4d8fce4 100755
--- 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 ;