diff options
author | Hugo Hörnquist <hugo@hornquist.se> | 2020-02-14 00:01:45 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@hornquist.se> | 2020-02-14 00:01:45 +0100 |
commit | 9199375a781319d4f49e05b858d86775b02ae689 (patch) | |
tree | 1e01a90cf72683e2d6e8362e37dafe8969b3a65e /module/srfi/srfi-19 | |
parent | Fix event-length/day. (diff) | |
download | calp-9199375a781319d4f49e05b858d86775b02ae689.tar.gz calp-9199375a781319d4f49e05b858d86775b02ae689.tar.xz |
Fix date/-time<.
Diffstat (limited to '')
-rw-r--r-- | module/srfi/srfi-19/alt.scm | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/module/srfi/srfi-19/alt.scm b/module/srfi/srfi-19/alt.scm index 6c71f02c..09f70190 100644 --- a/module/srfi/srfi-19/alt.scm +++ b/module/srfi/srfi-19/alt.scm @@ -212,9 +212,15 @@ (date<= (get-date a) (get-date b)))) (define-public (date/-time< a b) - (if (date< (as-date a) (as-date b)) - #t - (time< (as-time a) (as-time b)))) + ;; (format (current-error-port) "~a < ~a = " a b) + (let ((res + (cond [(date= (as-date a) (as-date b)) + (time< (as-time a) (as-time b))] + [(date< (as-date a) (as-date b)) + #t] + [else #f]))) + ;; (format (current-error-port) "~a~%" res) + res)) (define-many define-public (date<?) date< |