arg-reorder.clj

(let [reorder (fn [f order]
                (fn [& args]
                  (let [argv (vec args)
                        new-args (reduce (fn [args [old new]]
                                           (assoc args new (argv old)))
                                         argv
                                         order)]
                    (apply f new-args))))]
  ((reorder map {0 1, 1 0}) [1 2] inc))