X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=basis%2Fconcurrency%2Flocks%2Flocks.factor;h=18cd86fa53470dcaf00944a203f86482871e3e56;hp=0094f3323d709d26f22850b02ee2a206ab12a537;hb=3f3d57032bf29190e9bee12d168a4bce6d74653c;hpb=cd1bb8f4c8afba318249c7b756a45aa1c46ea51e

diff --git a/basis/concurrency/locks/locks.factor b/basis/concurrency/locks/locks.factor
index 0094f3323d..18cd86fa53 100644
--- a/basis/concurrency/locks/locks.factor
+++ b/basis/concurrency/locks/locks.factor
@@ -57,7 +57,7 @@ TUPLE: rw-lock readers writers reader# writer ;
 <PRIVATE
 
 : add-reader ( lock -- )
-    [ 1+ ] change-reader# drop ;
+    [ 1 + ] change-reader# drop ;
 
 : acquire-read-lock ( lock timeout -- )
     over writer>>
@@ -68,7 +68,7 @@ TUPLE: rw-lock readers writers reader# writer ;
     writers>> notify-1 ;
 
 : remove-reader ( lock -- )
-    [ 1- ] change-reader# drop ;
+    [ 1 - ] change-reader# drop ;
 
 : release-read-lock ( lock -- )
     dup remove-reader