[gnunet] 13/17: Remove `set-next-task!`, as the corresponding functions have been removed from GNUnet.

[Rémi Birot-Delrue]

remibd pushed a commit to branch master
in repository gnunet.

commit 51a4fd34962068359ab25e9ed3d8c743ffd48cce
Author: Rémi Birot-Delrue <address@hidden>
Date:   Mon Aug 10 19:09:22 2015 +0200

    Remove `set-next-task!`, as the corresponding functions have been removed
    from GNUnet.
---
 gnu/gnunet/scheduler.scm |    9 +++++----
 1 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/gnu/gnunet/scheduler.scm b/gnu/gnunet/scheduler.scm
index e45aacd..e13d643 100644
--- a/gnu/gnunet/scheduler.scm
+++ b/gnu/gnunet/scheduler.scm
@@ -25,7 +25,7 @@
   #:export (default-error-handler
             call-with-scheduler
            add-task!
-           set-next-task!
+#;         set-next-task!
             cancel-task!
             schedule-shutdown!))
 
@@ -35,9 +35,9 @@
 (define-gnunet schedule-shutdown!
   "GNUNET_SCHEDULER_shutdown" : '()    -> void)
 
-(define-gnunet %add-continuation
+#;(define-gnunet %add-continuation
   "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" :
     (list '* '* unsigned-int unsigned-int) -> void)
 
@@ -143,6 +143,7 @@ arbitrarily."
                   %null-pointer))
 
 ;;+TODO: shall I (assert (uint64? delay)) ?
+;;+TODO: map delay = inf to %delay = uint64_max
 (define* (add-task! thunk #:key (delay 0) (priority #:default)
                     (error-handler default-error-handler))
   "Schedule THUNK for execution with DELAY with PRIORITY.
@@ -163,7 +164,7 @@ arbitrarily."
            (%add-delayed-with-priority delay (priority->number priority)
                                        %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))
   "Schedule TASK as the next action to complete."
   (let ((%thunk (task-thunk->pointer thunk error-handler))