Clojurians Log v2

Hi. Does the following pattern causes memory leak as read> returns error and we descend into recursive calls:

(defn read-with-retry
    ([delay-ms read>]
     (m/ap
       (let [read (try (m/?> read>)
                    (catch Exception e
                      :error))]
         (if (= :error read)
           (m/amb read
             (m/? (m/sleep delay-ms :retrying))
             (m/?> (read-with-retry delay-ms read>)))
           read))))
    ([read>] (read-with-retry 5000 read>)))

It's for a long running process I don't intend to shutdown for the life of the app; I suspect it will be problematic and rewrite it using loop:

(defn read-with-retry-loop
    ([delay-ms read>]
     (m/ap
       (loop []
         (let [read (try (m/?> read>)
                      (catch Exception e
                        :error))]
           (if (not= :error read)
             read
             (m/amb
               (m/? (m/sleep delay-ms :retrying))
               (recur)))))))
    ([read>] (read-with-retry-loop 5000 read>)))

Is it fixed and was there any problem in the first place?