provide a key to start-agenda for a user-supplied way to provide a key

[8sync.git] / loopy.scm

diff --git a/loopy.scm b/loopy.scm
index 99741c4727b6ef9c1d76942e4b9c90fcd5c4629c..d5d30c7a589a42f443ff3f20a2342926fb0d3ea6 100644 (file)
--- 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