projects
/
8sync.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
actors: New read-message procedures, touch up write-message procedures
[8sync.git]
/
8sync
/
agenda.scm
diff --git
a/8sync/agenda.scm
b/8sync/agenda.scm
index db8180b0e0dede289f147f903f4de3b9d0844f1a..195b23a300354bd183ffe4d2e8b3251b908c27d9 100644
(file)
--- 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)
(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
;; 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?
#: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
(get-time gettimeofday)
(handle-ports update-agenda-from-select!))
;; TODO: Document fields