[plt-scheme] date structures from email header field?

Quoting John Clements <clements at brinckerhoff.org>:

> (filter (lambda (sec) (eq? (date->string (seconds->date sec)))) 
> (build-list (expt 2 32) (lambda (x) x)))
> 
> 
> john "not fast enough for ya?" clements

Say what?  The eq? is missing a second operand.  But what I was asking for was
something along the lines of...

(rfc2822-date-time-string->date "Tue, 14 Jan 2003 10:24:20 -0500")
=> #(struct:date ...)

I've got a working version now, although not nearly as concise as yours.

-d