   Applying chop to an empty string is a no-op."
   [^String s]
   (if (.endsWith s "\r\n")
-    (.substring s 0 (- (.length s) 2))
-    (.substring s 0 (max 0 (dec (.length s))))))
+    (substring s 0 (- (.length s) 2))
+    (substring s 0 (max 0 (dec (.length s))))))
 
 (defn ^String chomp
   "Return a new string with the given record separator removed from

    :post [(not (nil? %))]}
   (if (and (>= (.length s) (.length prefix))
            (starts-with? s prefix ignore-case))
     (.substring s (.length prefix))
     s)))

(defn- case-sensitive-contains

          (if (> (aget ls i j) @z)
            (do
              (reset! z (aget ls i j))
              (reset! ret #{(substring s1 (- i @z) i)}))
            (when (= (aget ls i j) @z)
              (swap! ret conj (substring s1 (- i @z) i)))))))
    @ret))
