utilities.dylan

define traced macro gen-bind
  { gen-bind(?:name; ?identifier:name => ?dylan-identifier:name ?:*) }
  => { if (?dylan-identifier)
         //?name ## "$" ## ?identifier ## "-setter"(?dylan-identifier, opts);
           format-out("DYLAN %=\n", ?dylan-identifier);
       end if }
  { gen-bind(?:name; ?identifier:name ?:*) }
  => { if (?identifier)
         //?name ## "$" ## ?identifier ## "-setter"(?identifier, opts);
           format-out("YYY %=\n", ?identifier);
       end if }
end macro;