#: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
(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...
(begin body ...)))
(define (wait-for-readable port)
- (display "Waiting to read\n")
(8sync-abort-to-prompt
(make-async-request
(lambda (kont)
(make-read-request port (wrap (kont #f)))))))
(define (wait-for-writable port)
- (display "Waiting to write\n")
(8sync-abort-to-prompt
(make-async-request
(lambda (kont)