diff options
| -rw-r--r-- | haunt/post.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/haunt/post.scm b/haunt/post.scm index 964ae6f..08c8872 100644 --- a/haunt/post.scm +++ b/haunt/post.scm @@ -59,14 +59,14 @@ char-set:whitespace)) "-")) -(define (post->time post) +(define (post-time post) (date->time-utc (post-ref post 'date))) (define (posts/reverse-chronological posts) "Returns POSTS sorted in reverse chronological order." (sort posts (lambda (a b) - (time>? (post->time a) (post->time b))))) + (time>? (post-time a) (post-time b))))) (define (posts/group-by-tag posts) "Return an alist of tags mapped to the posts that used them." |