curry macro attempt

curry.clj

(defmacro curry [fname fixed-args & body]
  (let [arg-count (count fixed-args)]
    `(defn ~fname [& ~'args]
      (cond
        (< (count ~'args) ~arg-count)
        (apply partial (concat [~fname] ~'args))
        :else
          (let [~fixed-args ~'args]
            ~@body)))))

(curry foo [a b] (+ a b))

(foo 1 2)
;; 3

((foo 1) 2)
;; 3