mirror of
https://github.com/logseq/logseq.git
synced 2026-05-24 12:44:22 +00:00
10 lines
266 B
Clojure
10 lines
266 B
Clojure
(ns ^:no-doc frontend.handler.profiler)
|
|
|
|
(defmacro arity-n-fn
|
|
[n f-sym]
|
|
(let [arg-seq (mapv #(symbol (str "x" %)) (range n))]
|
|
(vec
|
|
(for [i (range n)]
|
|
(let [arg-seq* (vec (take i arg-seq))]
|
|
`(~'fn ~arg-seq* (apply ~f-sym ~arg-seq*)))))))
|