[Chicken-users] help with implicit renaming macro

[Alan Post]

I have a routine with several input arguments and one
output argument.  I want to write a macro to wrap my
output argument such that I can pass the results of
my input arguments to my output argument.  (See below)

I have this working with an explicit renaming macro,
but this is overkill.  I could find myself capturing
variables other than my input arguments.

I'd like to rewrite this macro as an implicit renaming
macro, which seems to require that I traverse form and
insert (inject arg1) wherever I find arg1, and to do
the same for arg2.

I do not otherwise need to transform the symbolic
expression bound to output.  Is there some idiomatic
way to traverse a tree and perform a set of replacement
operations on matching leaves?  

  (define (doit #!key arg1 arg2 output)
    (output arg1: arg1 arg2: arg2))

  ; er-macro-transformer works, but it might capture
  ; more than arg1, arg2.  Can I rewrite this to
  ; explicitely inject arg1 and arg2?
  ;
  (define-syntax do-output
    (er-macro-transformer
      (lambda (form rename compare?)
        `(lambda (#!key arg1 arg2)
           (list ,@(cdr form))))))

  >>> (doit arg1: "hello"
            arg2: "world"
            output: (do-output arg1 arg2))
  => ("hello world")

Thank you,

-Alan
-- 
my personal website: http://c0redump.org/