Bubble Sort in Clojure

bubble-sort.clj

(defn bubble-sort-step [coll]
  (if-not (seq coll)
    coll
    (let [[a b & rst] coll]
      (if-not b
        coll
        (lazy-seq
          (cons (min a b)
            (bubble-sort-step (cons (max a b) rst))))))))

(defn fixed-point
  "Applies f repeatedly to x until the result no longer changes (i.e., f(result) = result)."
  [f x]
  (loop [current x]
    (let [next (f current)]
      (if (= next current)
        current
        (recur next)))))

(comment
   (fixed-point bubble-sort-step '(4 3 2 1 5)) => (1 2 3 4 5)
 )

there are cleaner ways to do this with reduce, and peek