X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;f=loopy.scm;h=d5d30c7a589a42f443ff3f20a2342926fb0d3ea6;hb=46395baa30d0d6d0b1f0a21a5a6171ebb1f35e6e;hp=99741c4727b6ef9c1d76942e4b9c90fcd5c4629c;hpb=95f268c3d55e83ab4a1b1bbf66b9de6f6eae070d;p=8sync.git

diff --git a/loopy.scm b/loopy.scm
index 99741c4..d5d30c7 100644
--- a/loopy.scm
+++ b/loopy.scm
@@ -303,7 +303,9 @@
 
 (define %current-agenda (make-parameter #f))
 
-(define* (start-agenda agenda #:key stop-condition)
+(define* (start-agenda agenda
+                       #:key stop-condition
+                       (get-time gettimeofday))
   (let loop ((agenda agenda))
     (let ((agenda   
            ;; @@: Hm, maybe here would be a great place to handle
@@ -313,7 +315,7 @@
              (agenda-run-once agenda))))
       (if (and stop-condition (stop-condition agenda))
           'done
-          (let* ((new-time (gettimeofday))
+          (let* ((new-time (get-time))
                  (agenda
                   ;; Adjust the agenda's time just in time
                   ;; We do this here rather than in agenda-run-once to make