(require (lib "19.ss" "srfi"))
(let ((now (current-time))
(duration (make-time 'time-duration 0 (* 24 60 60))))
(values
(add-duration now duration) ;; 24 hours from now
(subtract-duration now duration))) ;; 24 hours in the past
Current Rev: r1.1 - 05 May 2004 - 18:53 GMT - FranciscoSolsona, Revision History:Diffs | r1.1
