diff options
Diffstat (limited to 'jakob/builder/blog.scm')
| -rw-r--r-- | jakob/builder/blog.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/jakob/builder/blog.scm b/jakob/builder/blog.scm index b3f83a6..f38266b 100644 --- a/jakob/builder/blog.scm +++ b/jakob/builder/blog.scm @@ -167,9 +167,9 @@ ;; Subdirectory for post listings conditioned on post tags. (define %tag-prefix (string-append %blog-prefix "/tag")) -(define* (sort-posts posts #:keywords (reverse? #f)) +(define* (sort-posts posts #:key (reverse? #f)) (sort posts (lambda (a b) - ((if reverse? time>=? time<?) + ((if reverse? time<? time>=?) (date->time-monotonic (post-date a)) (date->time-monotonic (post-date b)))))) |