X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;f=8sync%2Fagenda.scm;h=c3859d074df8c11eadf95961c2ca1e0521ccc126;hb=7429578ca2d8511dca2e5ba1b2b79b11a9368f90;hp=828153033840ce180a8914c3fecdda42139d440d;hpb=4998e7a9fe3b303923d918cd6087633d5302274f;p=8sync.git

diff --git a/8sync/agenda.scm b/8sync/agenda.scm
index 8281530..c3859d0 100644
--- a/8sync/agenda.scm
+++ b/8sync/agenda.scm
@@ -411,7 +411,8 @@ forge ahead in our current function!"
     ;; convert into sec / usec pair
     (receive (secs usecs)
         (floor/ next-time-in-usecs 1000000)
-      (cons secs (floor usecs))))
+      (cons (inexact->exact secs)
+            (inexact->exact (floor usecs)))))
   (define (convert-integer)
     (cons (+ in-secs cur-secs) cur-usecs))
   (if (integer? in-secs)
@@ -466,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))