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

How about this (warning! untested!):

(apply 
  vl-append
  (call-with-input-file "filename.java"
   (lambda (port)
    (let loop ()
      (let ([line (read-line port)])
        (if (eof-object? line)
            null
            (cons (tt line) (loop))))))))

Robby

At Sun, 19 Jun 2005 11:34:56 -0400, Doug Orleans wrote:
>   For list-related administrative tasks:
>   http://list.cs.brown.edu/mailman/listinfo/plt-scheme
> 
> I'd like to display some Java code in a slideshow.  Is there an easy
> way to read a file and display its contents in the "tt" font?
> (The tutorial slideshow uses new-text-frame to display code in a
> separate window, but I would rather display it inline.)
> 
> --dougo at place.org