X-Git-Url: https://jxself.org/git/?p=8sync.git;a=blobdiff_plain;f=8sync%2Fagenda.scm;fp=8sync%2Fagenda.scm;h=1d2515607b7d932598b3f3e7c9742f74fbfcbd21;hp=3aa43da1eeec85dee0f6d9f9d58abe1d6084b558;hb=08fb307989f2696ddbd2ad535f55558c577b2fdb;hpb=1c7504b3ea4ead41410c660702eccf70b6556363 diff --git a/8sync/agenda.scm b/8sync/agenda.scm index 3aa43da..1d25156 100644 --- a/8sync/agenda.scm +++ b/8sync/agenda.scm @@ -62,7 +62,7 @@ stop-on-nothing-to-do %current-agenda-prompt - start-agenda agenda-run-once!)) + run-agenda agenda-run-once!)) ;;; Agenda definition @@ -553,10 +553,10 @@ on suspendable ports." (= 0 (hash-count (const #t) (agenda-write-port-map agenda))))) -(define* (start-agenda agenda - #:key (stop-condition stop-on-nothing-to-do) - ;; For live hacking madness, etc - (post-run-hook #f)) +(define* (run-agenda agenda + #:key (stop-condition stop-on-nothing-to-do) + ;; For live hacking madness, etc + (post-run-hook #f)) ;; TODO: Document fields "Start up the AGENDA" (install-suspendable-ports!)