partial function application with named args

partial.clj

    (defprotocol INominal
      (partial-nominal [this args]))
    
    (defn ->args [xs]
      (let [arg->idx (zipmap xs (range (count xs)))]
        (reduce (fn [acc k] (assoc acc k :binding/unbound))
                (sorted-map-by (fn [l r]
                                 (compare (arg->idx l) (arg->idx r)))) xs)))
    
    (defn supply [params xs]
      (let [remaining (atom xs)]
        (map (fn [arg]
               (if (identical? arg :binding/unbound)
                 (let [nxt (first @remaining)]
                   (swap! remaining rest)
                   nxt)
                 arg))
             (vals params))))
    
    (defrecord mypartial [^clojure.lang.IFn f params]
      clojure.lang.IFn
      (applyTo [this args]
        ;;merge the args into free params.
        (.applyTo f (seq (supply params args))))
      INominal
      (partial-nominal [this args]
          (mypartial. f (into params args))))
    
    (defmacro pfn [args & body]
      `(let [f# (fn ~args ~@body)]
         (mypartial. f# (->args '~args))))
    
    
    ;; (let [f (pfn [a b c] (+ a b c))
    ;;       f2 (partial-nominal f '{a 1 c 3})]
    ;;   (apply f2 [1]))
    ;; 5