code style

shikokuchuo · Sep 20, 2023 · 9b52195 · 9b52195
1 parent 692cb93
commit 9b52195
Showing 1 changed file with 3 additions and 5 deletions.
diff --git a/R/mirai.R b/R/mirai.R
@@ -356,11 +356,9 @@ dispatcher <- function(host, url = NULL, n = NULL, asyncdial = FALSE,
           if (is.object(req)) req <- serialize(req, NULL)
           send(queue[[i]][["ctx"]], data = req, mode = 2L)
           q <- queue[[i]][["daemon"]]
-          if (req[1L] == .seven) {
-            close(attr(servers[[i]], "listener")[[1L]])
-          } else {
-            serverfree[q] <- TRUE
-          }
+          if (req[1L] == .seven)
+            close(attr(servers[[i]], "listener")[[1L]]) else
+              serverfree[q] <- TRUE
           complete[q] <- complete[q] + 1L
           ctx <- .context(sock)
           req <- recv_aio_signal(ctx, cv = cv, mode = 8L)