@@ -28,7 +28,7 @@ Imports:

     DelayedMatrixStats (>= 1.3.1),

     permute,

     limma,

-    DelayedArray (>= 0.7.6),

+    DelayedArray (>= 0.7.15),

     Rcpp,

     BiocParallel,

     readr,

@@ -101,9 +101,12 @@ makeClusters <- function(hasGRanges, maxGap = 10^8) {

     }

     # Write to coef_sink and se.coef_sink while respecting the IPC lock.

     ipclock(sink_lock)

-    write_block_to_sink(as.matrix(coef), coef_sink, grid[[b]])

+    write_block(x = coef_sink, viewport = grid[[b]], block = as.matrix(coef))

     if (keep.se) {

-        write_block_to_sink(as.matrix(se.coef), se.coef_sink, grid[[b]])

+        write_block(

+            x = se.coef_sink,

+            viewport = grid[[b]],

+            block = as.matrix(se.coef))

     }

     ipcunlock(sink_lock)

     NULL

@@ -142,7 +142,7 @@ blockApplyWithRealization <- function(x, FUN, ..., sink = NULL, x_grid = NULL,

         block_ans <- FUN(block, ...)

         # NOTE: This is the only part different from DelayedArray::blockApply()

         if (!is.null(sink)) {

-            write_block_to_sink(block_ans, sink, sink_viewport)

+            write_block(x = sink, viewport = sink_viewport, block = block_ans)

             block_ans <- NULL

         }

         if (DelayedArray:::get_verbose_block_processing()) {

@@ -84,7 +84,7 @@

             x = block_x,

             x_rowRanges = block_rowRanges,

             ans_rowRanges = ans_rowRanges)

-        write_block_to_sink(block_ans, sink, sink_viewport)

+        write_block(x = sink, viewport = sink_viewport, block = block_ans)

     }

     as(sink, "DelayedArray")

@@ -238,8 +238,8 @@

     }

     # Write to M_sink and Cov_sink while respecting the IPC lock.

     ipclock(sink_lock)

-    write_block_to_sink(M, M_sink, grid[[b]])

-    write_block_to_sink(Cov, Cov_sink, grid[[b]])

+    write_block(x = M_sink, viewport = grid[[b]], block = M)

+    write_block(x = Cov_sink, viewport = grid[[b]], block = Cov)

     ipcunlock(sink_lock)

     NULL

 }