provide a key to start-agenda for a user-supplied way to provide a key
authorChristopher Allan Webber <cwebber@dustycloud.org>
Fri, 20 Nov 2015 01:06:23 +0000 (19:06 -0600)
committerChristopher Allan Webber <cwebber@dustycloud.org>
Fri, 20 Nov 2015 01:06:23 +0000 (19:06 -0600)
loopy.scm

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