diff options
| author | Hugo Hörnquist <hugo@hornquist.se> | 2019-04-25 19:06:45 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-04-25 19:06:45 +0200 |
| commit | 13a5eb7e088415a3688483ebd1f32c5db5feaa5f (patch) | |
| tree | 836241898c8f351bef6038edfe8e4ef0744f5a50 | |
| parent | Change vulgar output to also use grouped events. (diff) | |
| download | calp-13a5eb7e088415a3688483ebd1f32c5db5feaa5f.tar.gz calp-13a5eb7e088415a3688483ebd1f32c5db5feaa5f.tar.xz | |
Change how in-date-range? does it's calculation.
| -rw-r--r-- | module/srfi/srfi-19/util.scm | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/module/srfi/srfi-19/util.scm b/module/srfi/srfi-19/util.scm index ea8e2f7f..06d03344 100644 --- a/module/srfi/srfi-19/util.scm +++ b/module/srfi/srfi-19/util.scm @@ -104,13 +104,10 @@ attribute set to 0. Can also be seen as \"Start of day\"" (drop-time start-day))) (define-public (in-date-range? start-date end-date) - (format (current-error-port) "Start: ~a~%End: ~a~%" - (date->string start-date) (date->string end-date)) (lambda (date) (let ((time (date->time-utc date))) - (timespan-overlaps? - (date->time-utc start-date) (date->time-utc end-date) - time time)))) + (and (time<=? (date->time-utc start-date) time) + (time<=? time (date->time-utc end-date)))))) (define-public (time-min a b) (if (time<? a b) a b)) |