Remove `set-next-task!`, as the corresponding functions have been removed

from GNUnet.

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))