Better guard against wrong input

ckeen · May 22, 2011 · 2112ff5 · 2112ff5
1 parent 07b021e
commit 2112ff5
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/pastiche.scm b/pastiche.scm
@@ -320,9 +320,9 @@
 	(with-request-variables
 	 ((from as-number)
 	  (to as-number))
-	 (let* ((from (or from 0))
-		(to (or to browsing-steps))
-		(nposts (number-of-posts))
+	 (let* ((nposts (number-of-posts))
+		(from (if (and from (>= from 0) (<= from nposts)) from 0))
+		(to (if (and to (> to from) (<= to nposts)) to browsing-steps))
 		(older-to (min (+ to browsing-steps) nposts))
 		(older-from (+ from browsing-steps))
 		(newer-from (- from browsing-steps))