X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;f=8sync%2Fagenda.scm;h=195b23a300354bd183ffe4d2e8b3251b908c27d9;hb=24964693f8dfc06f75d706acc3255d0686458ce8;hp=db8180b0e0dede289f147f903f4de3b9d0844f1a;hpb=2effa4a7e6169c2e1a611d7dde46519680f4adf7;p=8sync.git

diff --git a/8sync/agenda.scm b/8sync/agenda.scm
index db8180b..195b23a 100644
--- a/8sync/agenda.scm
+++ b/8sync/agenda.scm
@@ -138,7 +138,7 @@ Generally done automatically for the user through (make-agenda)."
                       (schedule (make-schedule))
                       (time (gettimeofday))
                       (catch-handler #f)
-                      (pre-unwind-handler #f))
+                      (pre-unwind-handler print-error-and-continue))
   ;; TODO: document arguments
   "Make a fresh agenda."
   (make-agenda-intern queue prompt
@@ -742,7 +742,7 @@ Also handles sleeping when all we have to do is wait on the schedule."
                        #:key
                        ;; @@: Should we make stop-on-nothing-to-do
                        ;;   the default stop-condition?
-                       stop-condition
+                       (stop-condition stop-on-nothing-to-do)
                        (get-time gettimeofday)
                        (handle-ports update-agenda-from-select!))
   ;; TODO: Document fields