pass the agenda to the stop-condition

diff --git a/loopy.scm b/loopy.scm
index 0f6edc569d5f3a02768096ab05c666816815d4d2..09034f409a65c341bec53fcaa954631cb68c3aad 100644 (file)
--- 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)))))