Playing with it I've come up with this code which Clojure barfs on:
(defn- n-gensyms [n]
(take n (repeatedly gensym)))
(defmacro defmatch [name & patterns]
(let [bindings# ~(n-gensyms (count (first (patterns))))]
`(defn ~name bindings#
(match bindings#)
~@patterns)))
I'm admittedly terrible at macros so be easy on me :)
--
You received this message because you are subscribed to the Google
Groups "Clojure" group.
To post to this group, send email to [email protected]
Note that posts from new members are moderated - please be patient with your
first post.
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/clojure?hl=en
