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))