           (split-barcodes (sample-ifq-xref samp)
                           sqxform-fn
                           (bc-file-specs ibc)
+                          no-barcodes?
                           (barcode-maps ibc)
                           (red1codes sid)
                           qc-ctpt sqc%))))

                                   (conj V rec))
                                 V v)))
                      (fn[V fqrec]
                        (let [[id sq aux qc] (sqxform-fn fqrec)
                              bc (get-sq-bc sq bclen
                                            barcodes-map
                                            other-barcodes)]
                          (if bc
                            (if (pass-qcscore qc qc-ctpt sqc%)
                              (let [len (count sq)
                                    sq (str/substring sq bclen len)
                                    qc (str/substring qc bclen len)]
                                (conj V [bc [id sq aux qc]]))
                              V)
                            V)))
                      recs)]
            (write-chunk-to-files ot-fd-map recs)
            (recur (bufiles/read-fqrecs inf rec-chunk-size)))))



(defn split-filter-fastqs
  [eid sqxform-fn & {:keys [baseqc% sqc% no-barcodes?]
                     :or {baseqc% 0.96 sqc% 0.97 no-barcodes? false}}]

  (let [no-barcodes? (get-exp-info eid :single-index)
        base (get-exp-info eid :base)
        exp-illumina-xref (get-exp-info eid :exp-illumina-xref)
        illumina-sample-xref (get-exp-info eid :illumina-sample-xref)
        barcode-maps (get-exp-info eid :barcode-maps)
