             [fhofherr.clj-db-util.db :as db-repr]))
 
 ;; Wrapper for a transaction. `op` is a function of one argument returning
-;; a map {::connection con ::value v}. The argument to `op` is the database
+;; a map {::db con ::value v}. The argument to `op` is the database
 ;; currently in use.
 (defrecord Transaction [op])
 

    `(defn ~fn-name {:doc ~doc-string}
       [~@(rest args)]
       (Transaction. (fn [~(first args)]
                       {::connection ~(first args)
                        ::value (do ~@(seq decls))})))))

(defmacro deftx-

    `(-> ~first-tx-expr
         ~@(emit-tx-steps reordered-bindings last-exprs))))

(defmacro tx-exec->
  "Like [[tx->]] but immediately call [[tx-exec]] on the result."
  [db bindings & last-exprs]
