%current-agenda
start-agenda agenda-run-once))
-(install-suspendable-ports!)
-
;; @@: Using immutable agendas here, so wouldn't it make sense to
;; replace this queue stuff with using pfds based immutable queues?
(8sync-abort-to-prompt
(make-async-request
(lambda (kont)
- (make-run-request (lambda () (kont #f)) time)))))
+ (make-run-request (lambda () (kont #f)) (tdelta time))))))
;; Voluntarily yield execution
(define (yield) ; @@: should this be define-inlinable?
(post-run-hook #f))
;; TODO: Document fields
"Start up the AGENDA"
+ (install-suspendable-ports!)
(let loop ((agenda agenda))
(let ((agenda
;; @@: Hm, maybe here would be a great place to handle