diff options
author | Hugo Hörnquist <hugo@hornquist.se> | 2020-02-13 23:59:23 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@hornquist.se> | 2020-02-13 23:59:23 +0100 |
commit | adaf5d3a5ef199711cbb01dc49d1678bac745a0a (patch) | |
tree | 7f2845ca9c5236334d89c21cbe9e757051878b07 /module/srfi/srfi-19 | |
parent | Remove in-day? (diff) | |
download | calp-adaf5d3a5ef199711cbb01dc49d1678bac745a0a.tar.gz calp-adaf5d3a5ef199711cbb01dc49d1678bac745a0a.tar.xz |
Fix date<%, similar to time<.
Diffstat (limited to '')
-rw-r--r-- | module/srfi/srfi-19/alt.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/module/srfi/srfi-19/alt.scm b/module/srfi/srfi-19/alt.scm index 82a16627..6c71f02c 100644 --- a/module/srfi/srfi-19/alt.scm +++ b/module/srfi/srfi-19/alt.scm @@ -158,7 +158,7 @@ (define (date<% a b) (let ((ay (year a)) (by (year b))) - (if (= ay ay) + (if (= ay by) (let ((am (month a)) (bm (month b))) (if (= am bm) |