From 62707908ed5e2525930b483e1a9c29a8ec7652ba Mon Sep 17 00:00:00 2001 From: Jelle Licht Date: Tue, 7 Mar 2023 20:01:37 +0100 Subject: post: Add fallback value to post-time. * haunt/post.scm (post-time): Implement in terms of post-date, which has a fallback value. --- haunt/post.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/haunt/post.scm b/haunt/post.scm index 0a0bb8d..ebe2689 100644 --- a/haunt/post.scm +++ b/haunt/post.scm @@ -86,7 +86,7 @@ specified." (or (post-ref post 'date) %default-date)) (define (post-time post) - (date->time-utc (post-ref post 'date))) + (date->time-utc (post-date post))) (define (posts/reverse-chronological posts) "Returns POSTS sorted in reverse chronological order." -- cgit v1.2.3