From adaf5d3a5ef199711cbb01dc49d1678bac745a0a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@hornquist.se>
Date: Thu, 13 Feb 2020 23:59:23 +0100
Subject: Fix date<%, similar to time<.

---
 module/srfi/srfi-19/alt.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'module')

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)
-- 
cgit v1.2.3