> #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))))
_________________________________________________
For list-related administrative tasks:
http://list.cs.brown.edu/mailman/listinfo/plt-dev
