Source
net/licenser/sandbox.clj:96
top
(defn expand-and-quote [form]
(let [f (macroexpand form)]
(if (= (first f) '.)
(let [[_ obj m & args] f]
(if (and (seq? m) (empty? args))
(concat (list '. obj (str (first m))) (rest m))
(concat (list '. obj (str m)) args)))
f)))
Comments top
No comments for expand-and-quote. Log in to add a comment.