projects
/
8sync.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
95f268c
)
provide a key to start-agenda for a user-supplied way to provide a key
author
Christopher Allan Webber
<cwebber@dustycloud.org>
Fri, 20 Nov 2015 01:06:23 +0000
(19:06 -0600)
committer
Christopher Allan Webber
<cwebber@dustycloud.org>
Fri, 20 Nov 2015 01:06:23 +0000
(19:06 -0600)
loopy.scm
patch
|
blob
|
history
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 %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
(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
(agenda-run-once agenda))))
(if (and stop-condition (stop-condition agenda))
'done
- (let* ((new-time (get
timeofday
))
+ (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
(agenda
;; Adjust the agenda's time just in time
;; We do this here rather than in agenda-run-once to make