actors: Introduce non-reentrant actors by default.

[8sync.git] / 8sync / agenda.scm

diff --git a/8sync/agenda.scm b/8sync/agenda.scm
index e91487eda3aa52cbef2513eaa57ff91e094e89b1..c3859d074df8c11eadf95961c2ca1e0521ccc126 100644 (file)
--- a/8sync/agenda.scm
+++ b/8sync/agenda.scm
@@ -467,7 +467,7 @@ Also handles sleeping when all we have to do is wait on the schedule."
     ;; TODO: support usecond wait time too
     (match (get-wait-time)
       ((sec . usec)
-       (catch 'system-error
+       (catch #t           ; expect: wrong-type-arg (open port), system-error
          (lambda ()
            (select (hash-keys (agenda-read-port-map agenda))
                    (hash-keys (agenda-write-port-map agenda))