From 67d74daf0c8b7b6d786859f0be659021f0a153d8 Mon Sep 17 00:00:00 2001
From: Ricardo Wurmus <rekado@elephly.net>
Date: Sun, 23 Jan 2022 13:29:07 +0100
Subject: etc: committer: Support plain input lists.

* etc/committer.scm.in (change-commit-message): Support new-style plain list
inputs in addition to old-style inputs with labels.
---
 etc/committer.scm.in | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'etc')

diff --git a/etc/committer.scm.in b/etc/committer.scm.in
index 1ad83e37d7..5a57d51577 100755
--- a/etc/committer.scm.in
+++ b/etc/committer.scm.in
@@ -215,7 +215,12 @@ corresponding to the top-level definition containing the staged changes."
   "Print ChangeLog commit message for changes between OLD and NEW."
   (define (get-values expr field)
     (match ((sxpath `(// ,field quasiquote *)) expr)
-      (() '())
+      (()
+       ;; New-style plain lists
+       (match ((sxpath `(// ,field list *)) expr)
+         ((inner) inner)
+         (_ '())))
+      ;; Old-style labelled inputs
       ((first . rest)
        (map cadadr first))))
   (define (listify items)
-- 
cgit v1.2.1