--- a/BackgroundQueueProcessingJob.st Sun Jan 17 04:47:23 2016 +0000
+++ b/BackgroundQueueProcessingJob.st Mon Jan 18 20:19:57 2016 +0100
@@ -184,20 +184,16 @@
!BackgroundQueueProcessingJob methodsFor:'processing'!
process
-
- | cookie item |
+ [
+ | item |
- cookie := 'cookie'.
- [
- item := cookie.
+ item := nil.
queueAccessLock critical:[
queue notEmpty ifTrue:[item := queue removeFirst]
].
- item ~~ cookie ifTrue:[
- self processItem: item
- ].
- item ~~ cookie.
- ] whileTrue.
+ item isNil ifTrue:[^ self].
+ self processItem: item.
+ ] loop.
"Created: / 28-04-2011 / 20:36:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified (format): / 03-08-2011 / 16:43:21 / cg"
@@ -263,14 +259,14 @@
!BackgroundQueueProcessingJob class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic2/BackgroundQueueProcessingJob.st,v 1.17 2015-02-21 10:03:53 vrany Exp $'
+ ^ '$Header$'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic2/BackgroundQueueProcessingJob.st,v 1.17 2015-02-21 10:03:53 vrany Exp $'
+ ^ '$Header$'
!
version_SVN
- ^ '$Id: BackgroundQueueProcessingJob.st,v 1.17 2015-02-21 10:03:53 vrany Exp $'
+ ^ '$Id$'
! !