From: Christopher Allan Webber <cwebber@dustycloud.org>
Date: Tue, 17 Nov 2015 23:11:04 +0000 (-0600)
Subject: pass the agenda to the stop-condition
X-Git-Tag: v0.1.0~175
X-Git-Url: https://jxself.org/git/?p=8sync.git;a=commitdiff_plain;h=789ab5ca77bffa77d20a864e33cae2af799e7a64

pass the agenda to the stop-condition
---

diff --git a/loopy.scm b/loopy.scm
index 0f6edc5..09034f4 100644
--- a/loopy.scm
+++ b/loopy.scm
@@ -21,7 +21,7 @@
     (let ((new-agenda
            (parameterize ((%current-agenda agenda))
              (agenda-run-once agenda))))
-      (if (and stop-condition (stop-condition))
+      (if (and stop-condition (stop-condition agenda))
           'done
           (loop new-agenda)))))