Some clojure macros for functional iteration

iterators.clj

(defmacro iloop [[i istart iend] [sym init] expr]
  `(loop [~i ~istart
          ~sym ~init]
     (if (= ~i ~iend)
       ~sym
       (recur (inc ~i)
              ~expr))))

(defmacro iter [forms pred ret]
  (let [syms  (take-nth 3 forms)
        inits (take-nth 3 (drop 1 forms))
        exprs (take-nth 3 (drop 2 forms))]
    `(loop [~@(interleave syms inits)]
       (if ~pred
         ~ret
         (recur ~@exprs)))))