Remove `set-next-task!`, as the corresponding functions have been removed
from GNUnet.
This commit is contained in:
parent
cb2028f885
commit
51a4fd3496
|
@ -25,7 +25,7 @@
|
||||||
#:export (default-error-handler
|
#:export (default-error-handler
|
||||||
call-with-scheduler
|
call-with-scheduler
|
||||||
add-task!
|
add-task!
|
||||||
set-next-task!
|
#; set-next-task!
|
||||||
cancel-task!
|
cancel-task!
|
||||||
schedule-shutdown!))
|
schedule-shutdown!))
|
||||||
|
|
||||||
|
@ -35,9 +35,9 @@
|
||||||
(define-gnunet schedule-shutdown!
|
(define-gnunet schedule-shutdown!
|
||||||
"GNUNET_SCHEDULER_shutdown" : '() -> void)
|
"GNUNET_SCHEDULER_shutdown" : '() -> void)
|
||||||
|
|
||||||
(define-gnunet %add-continuation
|
#;(define-gnunet %add-continuation
|
||||||
"GNUNET_SCHEDULER_add_continuation" : (list '* '* unsigned-int) -> void)
|
"GNUNET_SCHEDULER_add_continuation" : (list '* '* unsigned-int) -> void)
|
||||||
(define-gnunet %add-continuation-with-priority
|
#;(define-gnunet %add-continuation-with-priority
|
||||||
"GNUNET_SCHEDULER_add_continuation_with_priority" :
|
"GNUNET_SCHEDULER_add_continuation_with_priority" :
|
||||||
(list '* '* unsigned-int unsigned-int) -> void)
|
(list '* '* unsigned-int unsigned-int) -> void)
|
||||||
|
|
||||||
|
@ -143,6 +143,7 @@ arbitrarily."
|
||||||
%null-pointer))
|
%null-pointer))
|
||||||
|
|
||||||
;;+TODO: shall I (assert (uint64? delay)) ?
|
;;+TODO: shall I (assert (uint64? delay)) ?
|
||||||
|
;;+TODO: map delay = inf to %delay = uint64_max
|
||||||
(define* (add-task! thunk #:key (delay 0) (priority #:default)
|
(define* (add-task! thunk #:key (delay 0) (priority #:default)
|
||||||
(error-handler default-error-handler))
|
(error-handler default-error-handler))
|
||||||
"Schedule THUNK for execution with DELAY with PRIORITY.
|
"Schedule THUNK for execution with DELAY with PRIORITY.
|
||||||
|
@ -163,7 +164,7 @@ arbitrarily."
|
||||||
(%add-delayed-with-priority delay (priority->number priority)
|
(%add-delayed-with-priority delay (priority->number priority)
|
||||||
%thunk %null-pointer)))))
|
%thunk %null-pointer)))))
|
||||||
|
|
||||||
(define* (set-next-task! thunk #:key (reasons '(#:none)) (priority #:default)
|
#;(define* (set-next-task! thunk #:key (reasons '(#:none)) (priority #:default)
|
||||||
(error-handler default-error-handler))
|
(error-handler default-error-handler))
|
||||||
"Schedule TASK as the next action to complete."
|
"Schedule TASK as the next action to complete."
|
||||||
(let ((%thunk (task-thunk->pointer thunk error-handler))
|
(let ((%thunk (task-thunk->pointer thunk error-handler))
|
||||||
|
|
Loading…
Reference in New Issue