[plt-dev] Racket web page

> #lang racket
> ;; Compute md5 checksum of the file given at the command line
> (require scheme/cmdline
>         file/md5)
> (printf "~a~n" (md5 (command-line #:args (filename) filename)))

Whoops; sorry!  I forgot to add the open-input-file part to the
expression.  That last bit needs to be:

(printf "~a~n" (md5
                (open-input-file (command-line #:args (filename) filename))))