From ce6d532e20dccb6fb83c5e10ec315d270015f483 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@hornquist.se>
Date: Tue, 11 Feb 2020 22:02:03 +0100
Subject: Fix FATAL bug in 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 0d70a4f9..9fe3f9d2 100644
--- a/module/srfi/srfi-19/alt.scm
+++ b/module/srfi/srfi-19/alt.scm
@@ -189,7 +189,7 @@
 (define-public (time< a b)
   (let ((ah (hour a))
         (bh (hour b)))
-    (if (= ah ah)
+    (if (= ah bh)
         (let ((am (minute a))
               (bm (minute b)))
           (if (= am bm)
-- 
cgit v1.2.3