[racket] Converting a date to seconds

----- Original Message -----
> From: Tony Garnock-Jones <tonyg at ccs.neu.edu>
> #lang racket
> (require srfi/19)
> (define (date->seconds date epoch-date)
>   (time-second
>     (time-difference (date->time-utc date)
>                      (date->time-utc epoch-date))))
> (date->seconds (current-date)
>                (make-date 0 0 0 0 1 1 1970 0))
> 
> It gives the same answers as time(3).

Many thanks