Re: macro recursion

Hi Mark, Am 17.12.2008 um 23:48 schrieb Mark Volkmann: Here's an example from Stuart Halloway's book. (defmacro chain ([x form] (list '. x form)) ([x form & more] (concat (list 'chain (list '. x form)) more))) (macroexpand '(chain arm getHand getFinger getNail) ; I added the getNail part.

macro recursion

Here's an example from Stuart Halloway's book. (defmacro chain ([x form] (list '. x form)) ([x form & more] (concat (list 'chain (list '. x form)) more))) (macroexpand '(chain arm getHand getFinger getNail) ; I added the getNail part. The result is (. (. (. arm getHand) getFinger) getNail)