[no subject]

[Ludovic Courtès]

branch: master
commit bed5fa5ac00bf1d0670aa6a891e024ce7d15c208
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Mon Aug 7 16:49:47 2023 +0200

    register: Reduce preemption tick rate.
    
    * src/cuirass/scripts/register.scm (cuirass-register): Change #:hz value.
---
 src/cuirass/scripts/register.scm | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/src/cuirass/scripts/register.scm b/src/cuirass/scripts/register.scm
index 80d2577..09488a1 100644
--- a/src/cuirass/scripts/register.scm
+++ b/src/cuirass/scripts/register.scm
@@ -174,11 +174,9 @@
                            (sleep 600)))))
                      (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
+           ;; Most of our code is I/O so preemption doesn't matter much.
+           ;; Thus, reduce the tick rate.
+           #:hz 2
 
            #:parallelism threads
            #:drain? #t)))))))