From 789ab5ca77bffa77d20a864e33cae2af799e7a64 Mon Sep 17 00:00:00 2001
From: Christopher Allan Webber <cwebber@dustycloud.org>
Date: Tue, 17 Nov 2015 17:11:04 -0600
Subject: [PATCH] pass the agenda to the stop-condition

---
 loopy.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)))))
 
-- 
2.31.1