simplify cleanup state

mschubert · Oct 10, 2023 · f5e5faf · f5e5faf
1 parent ef98456
commit f5e5faf
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/R/qsys_multicore.r b/R/qsys_multicore.r
@@ -47,10 +47,9 @@ MULTICORE = R6::R6Class("MULTICORE",
         },
 
         children = list(),
-        is_cleaned_up = TRUE, #TODO:
 
         finalize = function(quiet=FALSE) {
-            if (!private$is_cleaned_up) {
+            if (length(private$children) > 0) {
                 private$collect_children(wait=FALSE, timeout=0)
                 running = names(private$children)
                 if (length(running) > 0) {
@@ -60,7 +59,7 @@ MULTICORE = R6::R6Class("MULTICORE",
                                 immediate.=TRUE)
                     tools::pskill(running, tools::SIGKILL)
                 }
-                private$is_cleaned_up = TRUE
+                private$children = list()
             }
         }
     )