class: SemaphoreSet
authorStefan Vogel <sv@exept.de>
Fri, 08 Feb 2013 17:08:28 +0100
changeset 14769 898e4754340b
parent 14768 1da413c31c24
child 14770 87973b889eb8
class: SemaphoreSet comment/format in: #waitWithTimeoutMs:
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 $'
 ! !
+