X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=basis%2Fconcurrency%2Fsemaphores%2Fsemaphores.factor;h=dcd0ed9a2c8c31e07f9f52d80b3d6a9ae993affd;hp=59518f4c8d7320d449f092345d519a24ad322048;hb=3f3d57032bf29190e9bee12d168a4bce6d74653c;hpb=cd1bb8f4c8afba318249c7b756a45aa1c46ea51e diff --git a/basis/concurrency/semaphores/semaphores.factor b/basis/concurrency/semaphores/semaphores.factor index 59518f4c8d..dcd0ed9a2c 100644 --- a/basis/concurrency/semaphores/semaphores.factor +++ b/basis/concurrency/semaphores/semaphores.factor @@ -21,13 +21,13 @@ M: negative-count-semaphore summary : acquire-timeout ( semaphore timeout -- ) over count>> zero? [ dupd wait-to-acquire ] [ drop ] if - [ 1- ] change-count drop ; + [ 1 - ] change-count drop ; : acquire ( semaphore -- ) f acquire-timeout ; : release ( semaphore -- ) - [ 1+ ] change-count + [ 1 + ] change-count threads>> notify-1 ; :: with-semaphore-timeout ( semaphore timeout quot -- )