--- 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 $'
! !
+