Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (defmacro def-function-map-factory [namesym docstr k]
- `(defmacro ~namesym ~docstr
- [& args#]
- (let [f# (if (= 1 (count args#))
- (first args#)
- (list* 'fn args#))]
- `{~~k ~f#})))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement