aggr a macro for reduce comprihension*

gistfile1.clj

(defn compile-aggr [binding code]
  (let [[scoped expression & r] binding]
    (when (and scoped (not  expression))
      (throw (new Exception "aggr needs a even number of parameters")))

    (if scoped
      `(reduce
        (fn [a# b#] (let [~scoped [a# b#]] ~(compile-aggr r code)))
        ~expression)
      `(do ~@code))))

(defmacro aggr 
  [binding & code]
  (compile-aggr binding code))