   (createDataSource [_ n]
     (cl-buffer ctx (* w (max 1 (long n))) :read-write))
   (initialize [_ cl-buf]
-    (do
-      (enq-fill! queue cl-buf (array-fn 1))
-      cl-buf))
+    (enq-fill! queue cl-buf (array-fn 1))
+    cl-buf)
   (initialize [_ cl-buf v]
-    (do
-      (enq-fill! queue cl-buf (wrap-fn v))
-      cl-buf))
+    (enq-fill! queue cl-buf (wrap-fn v))
+    cl-buf)
   (wrapPrim [_ s]
     (wrap-fn s))
   CLAccessor

                             (.entryType acc) true mapped-buf m n ld ord)
        (catch Exception e (enq-unmap! queue cl-buf mapped-buf)))))
  (unmap [this mapped]
    (do
      (enq-unmap! (get-queue claccessor) cl-buf (.buffer ^Block mapped))
      this)))

(extend CLGeneralMatrix
  Magma

                           (.entryType acc) true mapped-buf n strd)
        (catch Exception e (enq-unmap! queue cl-buf mapped-buf)))))
  (unmap [this mapped]
    (enq-unmap! (get-queue claccessor) cl-buf (.buffer ^Block mapped))
    this))

(extend CLBlockVector
  Magma
