Mark dispatch important by default

borodust · Jan 10, 2017 · 10123b1 · 10123b1
1 parent 5248df0
commit 10123b1
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 4 deletions.
diff --git a/engine/concurrency/execution.lisp b/engine/concurrency/execution.lisp
@@ -51,7 +51,7 @@
 
 (defmethod execute ((this discarding-executor) (task function) &key
                                                                  (priority :medium)
-                                                                 important-p)
+                                                                 (important-p t))
   (if important-p
       (put-into (task-queue-of this) task priority)
       (try-put-replacing (task-queue-of this) task priority)))
@@ -86,7 +86,7 @@
 
 (defmethod execute ((this single-threaded-executor) (task function) &key
                                                                       (priority :medium)
-                                                                      important-p)
+                                                                      (important-p t))
   (with-slots (executor) this
     (execute executor task :priority priority :important-p important-p)))
 

diff --git a/engine/thread-bound-system.lisp b/engine/thread-bound-system.lisp
@@ -18,7 +18,7 @@
   (:method (context system) (declare (ignore context system))))
 
 
-(defmethod dispatch ((this thread-bound-system) fn &key (priority :medium) important-p)
+(defmethod dispatch ((this thread-bound-system) fn &key (priority :medium) (important-p t))
   (unless (call-next-method)
     (flet ((invoker ()
              (log-errors

diff --git a/scene/scene.lisp b/scene/scene.lisp
@@ -81,7 +81,7 @@
 
 (defun process-pass-chain-flow (chain root-node)
   (flet ((make-processor (pass)
-           (-> (pass) ()
+           (-> (pass :important-p nil) ()
              (run-scene-pass pass root-node))))
     (mapcar #'make-processor (passes-of chain))))