From: Christopher Allan Webber Date: Thu, 19 Nov 2015 20:05:07 +0000 (-0600) Subject: Slightly better style X-Git-Tag: v0.1.0~153 X-Git-Url: https://jxself.org/git/?a=commitdiff_plain;h=1b5c489e0db0d0ade45a5396eafcc4d3b12ac552;p=8sync.git Slightly better style --- diff --git a/loopy.scm b/loopy.scm index 6f1516f..5c1455e 100644 --- a/loopy.scm +++ b/loopy.scm @@ -292,11 +292,12 @@ (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