From 8342542446596bb320b43943a788f861dd6fcea9 Mon Sep 17 00:00:00 2001
From: Moritz Heidkamp <moritz.heidkamp@bevuta.com>
Date: Thu, 2 Jun 2011 01:39:25 +0200
Subject: [PATCH] redis-list-range includes the last element as well so
 substract 1 from the "to" value in the "browse pastes" page

---
 pastiche.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/pastiche.scm b/pastiche.scm
index eb248cf..9d9d011 100644
--- a/pastiche.scm
+++ b/pastiche.scm
@@ -117,7 +117,7 @@
       (reverse
        (map (lambda (p)
               (deserialize (redis-list-ref (redis-connection) (car p) (cdr p))))
-            (map deserialize (redis-list-range (redis-connection) 'pastes from to)))))
+            (map deserialize (redis-list-range (redis-connection) 'pastes from (- to 1))))))
 
     (define (make-post-table n #!optional (from 0))
       (define (format-row r)