On Jul 27, 5:50 am, Feng Shen <shen...@gmail.com> wrote:
> Clojure core.clj has a macro when-let,
> I am wondering how to write a macro `when-lets`
>
> (when-lets [symbol-1 test-1
>                    symbol-2 test-2
>             ...
>             ]
>            body
>            )
>
> body only get evaluated when (and test-1 test-2 ....)
> I am thinking about it, anybody has any clue?

(defmacro when-lets [tests & body]
  (reduce (fn [body test]
            `(when-let ~(vec test)
               ~body))
          `(do ~@body)
          (partition 2 (reverse tests))))

This would be cleaner if we had foldr in the language already - I find
myself wanting it quite often for macros like this.

-- 
You received this message because you are subscribed to the Google
Groups "Clojure" group.
To post to this group, send email to clojure@googlegroups.com
Note that posts from new members are moderated - please be patient with your 
first post.
To unsubscribe from this group, send email to
clojure+unsubscr...@googlegroups.com
For more options, visit this group at
http://groups.google.com/group/clojure?hl=en

Reply via email to