diff options
| -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 ...) |