From 68966d9e176bde885a083c81b8aef1887a0c3d9c Mon Sep 17 00:00:00 2001
From: Andy Wingo
Date: Mon, 6 Dec 2010 13:06:50 +0100
Subject: fix time comparisons

* tekuti/cache.scm (make-entry): Fix time comparisons.
---
 tekuti/cache.scm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/tekuti/cache.scm b/tekuti/cache.scm
index 8674f9b..d487ee4 100644
--- a/tekuti/cache.scm
+++ b/tekuti/cache.scm
@@ -75,7 +75,8 @@
               (let ((last-modified (response-last-modified response))
                     (since (request-if-modified-since request)))
                 (if (and last-modified since)
-                    (<= (date->time-utc last-modified) (date->time-utc since))
+                    (time<=? (date->time-utc last-modified)
+                             (date->time-utc since))
                     #t))
               (let ((etag (response-etag response))
                     (match (request-if-none-match request)))
@@ -94,8 +95,8 @@
                     (and (or since match)
                          (or (not since)
                              (and last-modified
-                                  (<= (date->time-utc last-modified)
-                                      (date->time-utc since))))
+                                  (time<=? (date->time-utc last-modified)
+                                           (date->time-utc since))))
                          (or (not match)
                              (and etag (list? match) (member etag match)))
                          (cons (build-response
-- 
cgit v1.2.3-54-g00ecf