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.
1 files changed, 6 insertions(+), 1 deletions(-) M etc/committer.scm.in
M etc/committer.scm.in => etc/committer.scm.in +6 -1
@@ 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)