Thanks for the hint, I&#39;ll take a look at that.<br>Thas sounds more complicated than I expected though.<br><br>Laurent<br><br><div class="gmail_quote">On Wed, Mar 10, 2010 at 12:43, Dave Gurnell <span dir="ltr">&lt;<a href="mailto:d.j.gurnell@gmail.com">d.j.gurnell@gmail.com</a>&gt;</span> wrote:<br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">On 10 Mar 2010, at 11:24, Laurent wrote:<br>
<br>
&gt; Searching for my way through macros (and seeing some shiny lights ahead), I wanted to make a getter/setter helper for class fields. [...]<br>
<br>
Hi Laurent,<br>
<br>
I don&#39;t have a specific answer to your question, I&#39;m afraid, but I got something like this to work in the past by expanding the entire &quot;class&quot; form and folding over the statements within.<br>
<br>
    <a href="http://svn.untyped.com/smoke/branches/bridge/src/class/syntax.ss" target="_blank">http://svn.untyped.com/smoke/branches/bridge/src/class/syntax.ss</a><br>
    <a href="http://svn.untyped.com/smoke/branches/bridge/src/class/syntax-internal.ss" target="_blank">http://svn.untyped.com/smoke/branches/bridge/src/class/syntax-internal.ss</a><br>
<br>
The code is part of a larger Web UI library... it&#39;s pretty self-contained but there&#39;s some stuff in there that&#39;s extraneous to your needs (forms to do with web cells, IDs for HTML elements, #:child keywords, #:callback keywords, and so on). If you cut all the chaff out the code would be very short indeed.<br>

<br>
Here&#39;s an example:<br>
<br>
    (class/cells superclass% ()<br>
<br>
      (field my-field initial-value<br>
        #:accessor #:mutator)<br>
<br>
      ; generate an accessor and mutator with custom names:<br>
      (field my-other-field initial-value<br>
        #:accessor custom-method-name<br>
        #:mutator other-custom-method-name!))<br>
<br>
There are more examples in the tests in SVN:<br>
<br>
    <a href="http://svn.untyped.com/smoke/branches/bridge/src/class/syntax-test.ss" target="_blank">http://svn.untyped.com/smoke/branches/bridge/src/class/syntax-test.ss</a><br>
<br>
Cheers,<br>
<br>
-- Dave<br>
<br>
_________________________________________________<br>
  For list-related administrative tasks:<br>
  <a href="http://list.cs.brown.edu/mailman/listinfo/plt-scheme" target="_blank">http://list.cs.brown.edu/mailman/listinfo/plt-scheme</a><br>
</blockquote></div><br>