diff options
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) |