# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 1360339708 -3600
# Node ID 898e4754340b6ae04ddfc95f4f679cb6c778fa20
# Parent  1da413c31c244cc9007a5cb501454e79f14ddadc
class: SemaphoreSet
comment/format in: #waitWithTimeoutMs:

diff -r 1da413c31c24 -r 898e4754340b SemaphoreSet.st
--- a/SemaphoreSet.st	Fri Feb 08 15:45:04 2013 +0100
+++ b/SemaphoreSet.st	Fri Feb 08 17:08:28 2013 +0100
@@ -261,7 +261,11 @@
                 now := OperatingSystem getMillisecondTime.
                 endTime := OperatingSystem millisecondTimeAdd:now and:milliSeconds.
 
-                timeoutBlock := [timeoutOccured := true. timeoutBlock := nil. Processor resume:currentProcess].
+                timeoutBlock := [
+                        timeoutOccured := true. 
+                        timeoutBlock := nil. 
+                        Processor resume:currentProcess.
+                    ].
                 Processor addTimedBlock:timeoutBlock for:currentProcess atMilliseconds:endTime.
             ].
             [
@@ -306,9 +310,10 @@
 !SemaphoreSet class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/SemaphoreSet.st,v 1.19 2010-02-05 12:58:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/SemaphoreSet.st,v 1.20 2013-02-08 16:08:28 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/SemaphoreSet.st,v 1.19 2010-02-05 12:58:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/SemaphoreSet.st,v 1.20 2013-02-08 16:08:28 stefan Exp $'
 ! !
+