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

[factor.git] / basis / concurrency / locks / locks.factor

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