dispatcher: Run the dispatch queue with a higher priority

We want the dispatching to happen faster, change the priority and see how things will turn out.
2011-07-06 09:58:13 +02:00 · 2011-07-06 09:58:13 +02:00 · 6f2c4e98c7
parent 49c376dbf6
commit 6f2c4e98c7
1 changed files with 1 additions and 1 deletions
--- a/Dispatcher.st
+++ b/Dispatcher.st
@ -38,7 +38,7 @@ Object subclass: Dispatcher [
        <category: 'private'>
        quit := false.
        queue := SharedQueue new.
-        dispatch := [[quit] whileFalse: [self dispatch]] fork.
+        dispatch := [[quit] whileFalse: [self dispatch]] forkAt: Processor highIOPriority.
    ]

    dispatchBlock: aBlock [