X-Git-Url: https://jxself.org/git/?p=8sync.git;a=blobdiff_plain;f=8sync%2Fagenda.scm;fp=8sync%2Fagenda.scm;h=e91487eda3aa52cbef2513eaa57ff91e094e89b1;hp=828153033840ce180a8914c3fecdda42139d440d;hb=48dffb1698035eb3e0eed696e2c296e26412b7d7;hpb=cef6072905deb71f3f2277dda21a78595d295901

diff --git a/8sync/agenda.scm b/8sync/agenda.scm
index 8281530..e91487e 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)