X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;ds=sidebyside;f=loopy.scm;h=09034f409a65c341bec53fcaa954631cb68c3aad;hb=789ab5ca77bffa77d20a864e33cae2af799e7a64;hp=0f6edc569d5f3a02768096ab05c666816815d4d2;hpb=8ef593dc9802e11f3222ab81e021e8807fd8bdb9;p=8sync.git

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