diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2018-01-26 14:37:22 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2018-01-26 14:37:22 +0100 |
| commit | ced26b60129a74463952ca0ddf42e0ceeeb8e1fc (patch) | |
| tree | c78f1670cf4af240c3aa007802ae0cc6c170aff4 /bin | |
| parent | dd8b6f66e4c90309835271c6605e9a7975ea546b (diff) | |
| download | cuirass-ced26b60129a74463952ca0ddf42e0ceeeb8e1fc.tar cuirass-ced26b60129a74463952ca0ddf42e0ceeeb8e1fc.tar.gz | |
cuirass: Reduce Fiber's tick rate.
* bin/cuirass.in (main): Pass #:hz to 'run-fibers'.
Diffstat (limited to 'bin')
| -rw-r--r-- | bin/cuirass.in | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/bin/cuirass.in b/bin/cuirass.in index 8f3fbf4..13de395 100644 --- 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))))))) |