diff options
| -rw-r--r-- | tekuti/page.scm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/tekuti/page.scm b/tekuti/page.scm index 182ea02..17cafa8 100644 --- a/tekuti/page.scm +++ b/tekuti/page.scm @@ -347,9 +347,11 @@ (if (pair? with) (fold (lambda (tag cont) (let ((posts (hash-ref tags tag '()))) - (lambda (post) - (or (member (post-key post) posts) - (cont post))))) + (if (pair? posts) + (lambda (post) + (or (member (post-key post) posts) + (cont post))) + cont))) (lambda (post) #f) with) (lambda (post) #t))) |