BackgroundQueueProcessingJob.st
changeset 3704 f19ba96f7722
parent 3496 15ea7983056e
child 3706 0db6c0586c81
child 3707 473883f651d6
--- 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$'
 ! !