cuirass: Reduce Fiber's tick rate.

* bin/cuirass.in (main): Pass #:hz to 'run-fibers'.
2018-01-26 14:37:22 +01:00 · 2018-01-26 14:37:22 +01:00 · ced26b6012
parent dd8b6f66e4
commit ced26b6012
1 changed files with 6 additions and 0 deletions
--- a/bin/cuirass.in
+++ b/bin/cuirass.in
@ -152,4 +152,10 @@ exec ${GUILE:-@GUILE@} --no-auto-compile -e main -s "$0" "$@"

                     (primitive-exit (get-message exit-channel))))))

+           ;; Most of our code is I/O so preemption doesn't matter much (it
+           ;; could help while we're doing SQL requests, for instance, but it
+           ;; doesn't actually help since these are non-resumable
+           ;; continuations.)  Thus, reduce the tick rate.
+           #:hz 10
+
           #:drain? #t)))))))