From 4da22c00f8081ba8c072dd4e476de736cb7be79f Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Thu, 7 Jul 2022 02:06:43 +0530
Subject: issue: Comment on list-line->alist cond ladder.

* tissue/issue.scm (list-line->alist): Comment on cond ladder.
---
 tissue/issue.scm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/tissue/issue.scm b/tissue/issue.scm
index 4ff06f8..905e937 100644
--- a/tissue/issue.scm
+++ b/tissue/issue.scm
@@ -282,12 +282,14 @@ return #f."
   (and (string-match "^\\* [a-zA-Z]+:" line)
        (fold (lambda (element result)
                (cond
+                ;; Begin new key.
                 ((string-match "^([a-zA-Z]+):[ ]*(.*)" element)
                  => (lambda (m)
                       (cons (list (string->symbol
                                    (string-downcase (match:substring m 1)))
                                   (match:substring m 2))
                             result)))
+                ;; Add to current key.
                 (else
                  (match result
                    (((key . values) tail ...)
-- 
cgit v1.2.3