diff options
| -rw-r--r-- | haunt/custom/alias.scm | 6 | ||||
| -rw-r--r-- | haunt/custom/tag.scm | 6 |
2 files changed, 6 insertions, 6 deletions
diff --git a/haunt/custom/alias.scm b/haunt/custom/alias.scm index 6bc5062..388842a 100644 --- a/haunt/custom/alias.scm +++ b/haunt/custom/alias.scm @@ -37,8 +37,8 @@ "Return a procedure that transforms a list of article ALIASES into pages redirecting from one arbitrary file to another." (lambda (site posts) - (map (lambda (alist) - (let ((alias (car alist)) - (target (cdr alist))) + (map (lambda (pair) + (let ((alias (car pair)) + (target (cdr pair))) (article-alias alias target))) aliases))) diff --git a/haunt/custom/tag.scm b/haunt/custom/tag.scm index c8a0337..3821499 100644 --- a/haunt/custom/tag.scm +++ b/haunt/custom/tag.scm @@ -51,9 +51,9 @@ is used." "Return a procedure that transforms a list of posts into pages containing only the posts that have a certain tag." (lambda (site posts) - (map (lambda (alist) - (let* ((tag-name (car alist)) - (posts (posts/reverse-chronological (cdr alist))) + (map (lambda (pair) + (let* ((tag-name (car pair)) + (posts (posts/reverse-chronological (cdr pair))) (title (format #f "Posts tagged as \"~a\"" tag-name)) (file-name (format #f "tag-~a.html" tag-name)) (body `(h1 ,(format #f "Tagged as \"~a\"" tag-name)))) |