30 checks-per-second for the coop server handler is a lot less demanding on the CPU

diff --git a/eightsync/repl.scm b/eightsync/repl.scm
index 6180d04e6c1779c6922eac24ad7ee71a39935718..196b02d6bb7c787d89d0506bdd2bb37c2f7b9128 100644 (file)
--- a/eightsync/repl.scm
+++ b/eightsync/repl.scm
@@ -26,7 +26,7 @@
   (define (run-self)
     (poll-coop-repl-server coop-server)
     ;; queue ourselves again
-    (run-delay (run-self) (/ 1 60)))
+    (run-delay (run-self) (/ 1 30)))
   run-self)
 
 (define* (spawn-and-queue-repl-server! agenda #:optional port)