more efficient daemon exit ack

shikokuchuo · Nov 13, 2023 · 5faa0c1 · 5faa0c1
1 parent 59f8964
commit 5faa0c1
Showing 1 changed file with 1 addition and 3 deletions.
diff --git a/R/dispatcher.R b/R/dispatcher.R
@@ -216,9 +216,7 @@ dispatcher <- function(host, url = NULL, n = NULL, ..., asyncdial = FALSE,
           send_aio(queue[[i]][["ctx"]], data = req, mode = 2L)
           q <- queue[[i]][["daemon"]]
           if (req[1L] == .nextmode) {
-            ctx <- .context(servers[[q]])
-            send_aio(ctx, data = NULL, mode = 2L)
-            reap(ctx)
+            send_aio(.context(servers[[q]]), data = NULL, mode = 2L)
           } else {
             serverfree[q] <- TRUE
           }