# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1377272142 -7200
# Node ID 5c5b99d9e0d2fb7330bd349fc75367fba53c740a
# Parent  76245e4ca77bd9edefa4c1e9b5a8bccc73bbeea8
class: Semaphore
changed:
        #wait
        #waitWithTimeoutMs:

diff -r 76245e4ca77b -r 5c5b99d9e0d2 Semaphore.st
--- a/Semaphore.st	Fri Aug 23 16:39:09 2013 +0200
+++ b/Semaphore.st	Fri Aug 23 17:35:42 2013 +0200
@@ -836,7 +836,7 @@
                 wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
             ].
             self removeWaitingProcess:activeProcess.
-        ] doUntil:[count > 0].
+        ] doWhile:[count <= 0].
     ].
 
     count := count - 1.
@@ -976,7 +976,7 @@
                 wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
                 ^ nil
             ].
-        ] doUntil:[count > 0].
+        ] doWhile:[count <= 0].
 
         timeoutBlock notNil ifTrue:[
             Processor removeTimedBlock:timeoutBlock.
@@ -1000,10 +1000,10 @@
 !Semaphore class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Semaphore.st,v 1.94 2013-08-16 17:51:57 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Semaphore.st,v 1.95 2013-08-23 15:35:42 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Semaphore.st,v 1.94 2013-08-16 17:51:57 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Semaphore.st,v 1.95 2013-08-23 15:35:42 cg Exp $'
 ! !