projects
/
8sync.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
79592dc
)
Slightly better style
author
Christopher Allan Webber
<cwebber@dustycloud.org>
Thu, 19 Nov 2015 20:05:07 +0000
(14:05 -0600)
committer
Christopher Allan Webber
<cwebber@dustycloud.org>
Thu, 19 Nov 2015 20:05:07 +0000
(14:05 -0600)
loopy.scm
patch
|
blob
|
history
diff --git
a/loopy.scm
b/loopy.scm
index 6f1516fdb51449be60c4c952b2d024b97369e968..5c1455ecc86cc8f0f5eeed9b6f21da86d8a98a32 100644
(file)
--- a/
loopy.scm
+++ b/
loopy.scm
@@
-292,11
+292,12
@@
(agenda-run-once agenda))))
(if (and stop-condition (stop-condition agenda))
'done
(agenda-run-once agenda))))
(if (and stop-condition (stop-condition agenda))
'done
- (loop
- ;; Adjust the agenda's time just in time
- ;; We do this here rather than in agenda-run-once to make
- ;; agenda-run-once's behavior fairly predictable
- (set-field new-agenda (agenda-time) (gettimeofday)))))))
+ (let ((updated-agenda
+ ;; Adjust the agenda's time just in time
+ ;; We do this here rather than in agenda-run-once to make
+ ;; agenda-run-once's behavior fairly predictable
+ (set-field new-agenda (agenda-time) (gettimeofday))))
+ (loop updated-agenda))))))
(define (agenda-run-once agenda)
"Run once through the agenda, and produce a new agenda
(define (agenda-run-once agenda)
"Run once through the agenda, and produce a new agenda