avoid .unresolved() in promises method

shikokuchuo · Dec 2, 2024 · 5189d4f · 5189d4f
1 parent 4e2d996
commit 5189d4f
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/promises.R b/R/promises.R
@@ -68,7 +68,7 @@ as.promise.mirai <- function(x) {
 
   if (is.null(promise)) {
 
-    promise <- if (.unresolved(x)) {
+    promise <- if (unresolved(x)) {
       promises::promise(
         function(resolve, reject) .keep(x, environment())
       )$then(
@@ -78,7 +78,7 @@ as.promise.mirai <- function(x) {
               value
       )
     } else {
-      value <- collect_aio(x)
+      value <- .subset2(x, "value")
       promises::promise(
         function(resolve, reject)
           if (is_error_value(value) && !is_mirai_interrupt(value))