     ; cache.
     (let [feature-seq #(delay (-> (feature-seq-stmt []) first :i))
           field-seq #(delay (-> (field-seq-stmt []) first :i))
-          scores-seq #(delay (-> (scores-seq-stmt []) first :i))
           ; XXX try memoization again?
           ;        score-id-fn (memoize-key (comp ahashable first) scores-seq)
 
           writer {:insert-field field-stmt
-                  :insert-score score-stmt
                   :insert-field-score field-score-stmt
                   :insert-position position-stmt
                   :insert-feature feature-stmt

(def field-bin-query
  (cached-statement
    "SELECT `scores` FROM `field_score`
     JOIN `scores` ON `scores_id` = `scores`.`id`
     WHERE `field_id` = ? AND `i` = ?"
    true))


                                          (:chromEnd position)))])
        [:insert-field {:id field-id :dataset_id dataset-id :name (:field column)}]))

(defmethod load-field "genes" [dataset-id field-id {:keys [field rows]}]
  (conj (mapcat (fn [[genes row]]
                  (for [gene genes]
                    [:insert-gene {:field_id field-id :row row :gene gene}]))
