[plt-dev] Racket web page

From: Danny Yoo (dyoo at hkn.eecs.berkeley.edu)
Date: Tue May 25 13:30:53 EDT 2010

> #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))))

Posted on the dev mailing list.