diff options
| author | Arun Isaac | 2022-07-07 02:06:43 +0530 |
|---|---|---|
| committer | Arun Isaac | 2022-07-07 02:26:08 +0530 |
| commit | 4da22c00f8081ba8c072dd4e476de736cb7be79f (patch) | |
| tree | 3f7158605725e8470b0c0569baf5631a62db1684 | |
| parent | 79ff40694a28834e581f3c108d343a90dcd5ecbe (diff) | |
| download | tissue-4da22c00f8081ba8c072dd4e476de736cb7be79f.tar.gz tissue-4da22c00f8081ba8c072dd4e476de736cb7be79f.tar.lz tissue-4da22c00f8081ba8c072dd4e476de736cb7be79f.zip | |
issue: Comment on list-line->alist cond ladder.
* tissue/issue.scm (list-line->alist): Comment on cond ladder.
| -rw-r--r-- | tissue/issue.scm | 2 |
1 files changed, 2 insertions, 0 deletions
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 ...) |