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 | |
| parent | Remove in-day? (diff) | |
| download | calp-adaf5d3a5ef199711cbb01dc49d1678bac745a0a.tar.gz calp-adaf5d3a5ef199711cbb01dc49d1678bac745a0a.tar.xz | |
Fix date<%, similar to time<.
Diffstat (limited to 'module/srfi')
| -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) |