[Gauche-devel] emitting C code from scheme

Does anyone know a good scheme library that emits C code from 
S expression. Following is a simple example what I'm looking for:

   (c-code-emitter '(typedef int Integer) port)
=>
   typedef int Integer;

Not only scheme but also elisp is acceptable.

Regards,
Masatake YAMATO