projects
/
8sync.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
agenda: Remove call to deprecated agenda-except-port-map procedure.
[8sync.git]
/
8sync
/
agenda.scm
diff --git
a/8sync/agenda.scm
b/8sync/agenda.scm
index 8847dc931185a5424b2dd0e71f7d6f14c4875e7c..28df8bec25346049833528985823a2ee5333f7ab 100644
(file)
--- a/
8sync/agenda.scm
+++ b/
8sync/agenda.scm
@@
-27,7
+27,7
@@
#:export (<agenda>
make-agenda agenda?
agenda-queue agenda-prompt-tag
#:export (<agenda>
make-agenda agenda?
agenda-queue agenda-prompt-tag
- agenda-read-port-map agenda-write-port-map
agenda-except-port-map
+ agenda-read-port-map agenda-write-port-map
agenda-schedule
make-async-prompt-tag
agenda-schedule
make-async-prompt-tag
@@
-650,8
+650,7
@@
Also handles sleeping when all we have to do is wait on the schedule."
(selector agenda))
0)))
(or (has-items? agenda-read-port-map)
(selector agenda))
0)))
(or (has-items? agenda-read-port-map)
- (has-items? agenda-write-port-map)
- (has-items? agenda-except-port-map)))
+ (has-items? agenda-write-port-map)))
(if (or (ports-to-select?)
;; select doubles as sleep...
(if (or (ports-to-select?)
;; select doubles as sleep...