<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD> <META http-equiv=Content-Type content="text/html; charset=utf-8"> <META content="MSHTML 6.00.6000.16414" name=GENERATOR> <STYLE></STYLE> </HEAD> <BODY bgColor=#ffffff> <DIV><FONT face="Courier New">Hi</FONT></DIV> <DIV><FONT face="Courier New">The code you revised is a different version than I sent you but refers to the same problem too. In the latter version the problem is also solved by making define-struct-trafos and define-struct-trafo expansion time procedures.</FONT></DIV> <DIV><FONT face="Courier New"></FONT> </DIV> <DIV><FONT face="Courier New">I had a look in your article <A href="http://www.cs.utah.edu/plt/publications/macromod.pdf">http://www.cs.utah.edu/plt/publications/macromod.pdf</A>. Most appropriate to my case. Thanks, I will give the attention it deserves after returning from a short voyage.</FONT></DIV> <DIV><FONT face="Courier New">Jos</FONT></DIV> <DIV><FONT face="Courier New"></FONT> </DIV> <DIV><FONT face="Courier New"></FONT> </DIV> <DIV>(((((lambda(x)((((((((x x)x)x)x)x)x)x)x))<BR>    (lambda(x)(lambda(y)(x(x y)))))<BR>   (lambda(x)(x)x))<BR>  (lambda()(printf "Greetings, Jos~n"))))</DIV> <BLOCKQUOTE style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px"> <DIV style="FONT: 10pt arial">snip<BR>Revised code and example enclosed.<BR><BR>Matthew<BR></DIV></BLOCKQUOTE></BODY></HTML>