loop-vars.clj

(defmacro loop-vars
  "Like loop, but will automatically populate recur points where the special
  var recur-> is found.

  Mostly useful in mutable contexts, where some external factor causes the
  recur bindings to change.
  "
  [bindings & body]
  {:pre [(and (vector? bindings)
              (even? (count bindings)))]}
  `(loop ~bindings
     ~@(walk/postwalk
         (fn find-recur-> [x]
           (if (= x 'recur->)
             `(recur ~@(map second (partition 2 bindings)))
             x))
         body)))