[plt-scheme] (code ...) font in Slideshow

Hello all,

I sure would like to be able to use the font of my choice for (code
...) sections in my slideshow presentation. Since there is only a
parameter for current-main-font as far as I can see, I'm not sure if
there is an obvious way of accomplishing this. Setting the default for
'modern' is a little unwieldy -- and I'm not even sure this would
work.

Does anyone have any ideas?

Thanks,

- Scott Bell