     :post [(not (nil? %))]}
    (if (and (>= (.length s) (.length suffix))
             (ends-with? s suffix ignore-case))
-     (.substring s 0 (- (.length s) (.length suffix)))
+     (substring s 0 (- (.length s) (.length suffix)))
      s)))
 
 (defn ^String chop-prefix

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

(defn- case-sensitive-contains

  (case (.length s)
    0 ""
    1 (upper-case s)
    (str (upper-case (substring s 0 1)) (lower-case (substring s 1)))) )

(defn ^String swap-case
  "Change lower case characters to upper case and vice versa."
