 (defn delete-async
   "Same as delete but returns a future"
   [^Session session table & query-params]
-  (comment
-    (cc/executeasync- session (cons table query-params) q/delete-query)))
+  (cc/async
+   (apply delete session table query-params)))
 
 (defn select
   "Retrieves one or more columns for one or more rows in a table.

(defn insert-batch-async
  "Same as insert-batch but returns a future"
  [^Session session table records]
  (let [query (batch-query-from- table records)]
    (comment
      (cc/executeasync- session query))))

(defn atomic-batch
  "Executes a group of operations as an atomic batch (BEGIN BATCH ... APPLY BATCH)"

(defn update-async
  "Same as update but returns a future"
  [^Session session & query-params]
  (cc/async
   (apply update session query-params)))

(defn delete
  "Deletes columns and rows. If the `columns` clause is provided,
