diff options
Diffstat (limited to 'srfi')
| -rw-r--r-- | srfi/srfi-19/util.scm | 29 |
1 files changed, 15 insertions, 14 deletions
diff --git a/srfi/srfi-19/util.scm b/srfi/srfi-19/util.scm index ab951ea4..05deb39b 100644 --- a/srfi/srfi-19/util.scm +++ b/srfi/srfi-19/util.scm @@ -5,7 +5,8 @@ #:export (copy-date drop-time! drop-time localize-date - date-today? + ;; date-today? + today? seconds minutes hours days weeks date-add time-add @@ -52,11 +53,20 @@ transposed to the current timezone. Current timezone gotten from (time-utc->date (date->time-utc date) (date-zone-offset (current-date)))) +(define seconds 1) +(define minutes 60) +(define hours (* 60 minutes)) +(define days (* 24 hours)) +(define weeks (* 7 days)) + +(define (time-add time amount unit) + (add-duration time (make-time time-duration 0 (* amount unit)))) + (define (today? time) - (let* ((now (current-date)) - (then (add-duration time (make-time time-difference 0 (* 24 3600))))) - (and (time<=? time now) - (time<=? now then)))) + (let* ((now (date->time-utc (current-date))) + (then (time-add now 1 days))) + (and (time<=? now time) + (time<=? time then)))) #; (define (date-today? input-date) @@ -68,15 +78,6 @@ transposed to the current timezone. Current timezone gotten from (and (%date<=? now input-date) (%date<=? input-date then)))) -(define seconds 1) -(define minutes 60) -(define hours (* 60 minutes)) -(define days (* 24 hours)) -(define weeks (* 7 days)) - -(define (time-add time amount unit) - (add-duration time (make-time time-duration 0 (* amount unit)))) - #; (define (date-add date amount unit) (time-utc->date (add-duration (date->time-utc date) |