[plt-scheme] including a text file inline in slideshow

Matthew Flatt writes:
 >   For list-related administrative tasks:
 >   http://list.cs.brown.edu/mailman/listinfo/plt-scheme
 > 
 > At Sun, 19 Jun 2005 17:08:31 -0400, Doug Orleans wrote:
 > > Now, though, I'd also like the same thing for Scheme code in an
 > > external file.  I can't just replace "tt" with "code", since the
 > > latter is a macro.  I tried the following but it puts everything on
 > > one line:
 > > 
 > >   (define (scheme-file->pict file)
 > >    (call-with-input-file file
 > >      (lambda (port)
 > >        (typeset-code (read-syntax file port)))))
 > > 
 > > Any hints?
 > 
 > Add `(port-count-lines! port)' before the call to `typeset-code'.

Thanks!  That still discards blank lines and comments, though.  Hmm.

--dougo at place.org