From 3614b3e9b91c17773af75832f8fbafc24d105898 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Mon, 13 Apr 2015 19:24:20 -0400 Subject: post: Rename post->time to post-time. * haunt/post.scm (post->time): Rename to... (post-time): ...this. --- haunt/post.scm | 4 ++-- 1 file 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." -- cgit v1.2.3