                              ""
                              (conj-in rows last-row-index field-buffer)))
 
-                    (= str-char "\r")
+                    "\r"
                     (if (and (= newline :cr+lf) (not in-quoted-field))
                       (recur (+ index 1)
                              :in-field

                             ""
                             (conj-in rows last-row-index field-buffer)))

                    :else
                    (recur (+ index 1)
                           :in-field
                           in-quoted-field

                    str-char (str char)]
                (case state
                  :in-field
                  (condp = str-char
                    "\""
                    (if in-quoted-field
                      (if (= (str next-char) "\"")
                        (recur (+ index 2)
