X-Git-Url: https://jxself.org/git/?p=8sync.git;a=blobdiff_plain;f=8sync%2Frepl.scm;fp=8sync%2Frepl.scm;h=4cf60b255df6b4b85031a6bed9b3e0d670b609fa;hp=46f7cfd78012988685742fc40cdbf6b3a7977a23;hb=092b40c1c8c9c45926113fbabd542d3186244367;hpb=61cc590c027a28d903164e85c36b90be1dbf6159 diff --git a/8sync/repl.scm b/8sync/repl.scm index 46f7cfd..4cf60b2 100644 --- a/8sync/repl.scm +++ b/8sync/repl.scm @@ -63,7 +63,7 @@ (<- subscriber 'repl-update)) (.subscribers repl-manager))) (set! (.socket repl-manager) socket) - (while (actor-alive? repl-manager) + (while #t (daydream (.poll-every repl-manager)) (poll-coop-repl-server server) (inform-subscribers)))