Welcome to the CHICKEN Scheme pasting service

pagination fix? added by mario-goulart on Wed Aug 8 14:50:14 2012

diff --git a/pastiche.scm b/pastiche.scm
index e4813d1..744be15 100644
--- a/pastiche.scm
+++ b/pastiche.scm
@@ -121,7 +121,7 @@
 
 ; old "select * from pastes order by time desc limit ?,?"
     (define (fetch-last-pastes from to)
-      (let ((r ($db "select * from pastes p where time = (select min(time) from pastes p2 where p2.hash=p.hash) order by time desc limit ?,?" values: (list from to))))
+      (let ((r ($db "select * from pastes p where time = (select min(time) from pastes p2 where p2.hash=p.hash) order by time desc limit ? offset ?" values: (list browsing-steps from))))
         r))
 
     (define (make-post-table n #!optional (from 0))

Your annotation:

Enter a new annotation:

Your nick:
The title of your paste:
Your paste (mandatory) :
Which relatively recent Scheme report version does CHICKEN _not_ implement?
Visually impaired? Let me spell it for you (wav file) download WAV