rpartial.clj ((c) bja; licensed under EPL, the same as clojure)

rpartial.clj

(defmacro rpartial
  "Takes a form leaving a new variadic function which calls the head of form
  with the variadic arguments and then the arguments passed in as form. This
  has the effect of being a partial which preloads arguments from the right
  instead of the left.

  e.g.

  ((rpartial str \"World\") \"Hello \")"
  [& [f & xs]]
  `(f
     ([x#]
      (~f x# ~@xs))
     ([x# y#]
      (~f x# y# ~@xs))
     ([x# y# z#]
      (~f x# y# z# ~@xs))
     ([x# y# z# & more#]
      (apply ~f x# y# z# (concat more# [~@xs])))))