<!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.&nbsp;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>&nbsp;</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&nbsp;to my case. Thanks, I will give&nbsp;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>&nbsp;</DIV>
<DIV><FONT face="Courier New"></FONT>&nbsp;</DIV>
<DIV>(((((lambda(x)((((((((x x)x)x)x)x)x)x)x))<BR>&nbsp;&nbsp;&nbsp; 
(lambda(x)(lambda(y)(x(x y)))))<BR>&nbsp;&nbsp; (lambda(x)(x)x))<BR>&nbsp; 
(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>