post: Rename post->time to post-time.

* haunt/post.scm (post->time): Rename to...
  (post-time): ...this.

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."