summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
6ddb480)
* 8sync/agenda.scm (8sleep): Wrap time parameter in tdelta before passing
to make-run-request.
(8sync-abort-to-prompt
(make-async-request
(lambda (kont)
(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?
;; Voluntarily yield execution
(define (yield) ; @@: should this be define-inlinable?