This commit is contained in:
Peter Taoussanis 2013-12-20 16:33:40 +07:00
parent ef921d5662
commit 6218048a42

View File

@ -105,7 +105,7 @@
(perc accounted clock-time) (ft accounted)))))
(defmacro defnp "Like `defn` but wraps body in `p` macro."
{:arglists '([name doc-string? attr-map? [params] prepost-map? body])}
{:arglists '([name ?doc-string ?attr-map [params] ?prepost-map body])}
[name & sigs]
(let [[name [params & sigs]] (macro/name-with-attributes name sigs)
prepost-map (when (and (map? (first sigs)) (next sigs)) (first sigs))