From c0dad02e9f20e59def81bcccd73922d7e2beb88a Mon Sep 17 00:00:00 2001 From: Maxim Cournoyer Date: Tue, 29 Aug 2023 13:32:54 -0400 Subject: etc: teams: Drop unused port argument for list-members procedure. * etc/teams.scm.in (list-members): Drop port optional argument. Turn PREFIX into a keyword argument. (print-team): Adjust accordingly. --- etc/teams.scm.in | 12 +++++------- 1 file changed, 5 insertions(+), 7 deletions(-) (limited to 'etc/teams.scm.in') diff --git a/etc/teams.scm.in b/etc/teams.scm.in index 0ec71c722a..b017bb3d1a 100644 --- a/etc/teams.scm.in +++ b/etc/teams.scm.in @@ -666,13 +666,11 @@ TEAMS when a patch is received by Debbugs." name))) (format #false "~a <~a>" quoted-name/maybe (person-email member)))) -(define* (list-members team #:optional port (prefix "")) +(define* (list-members team #:key (prefix "")) "Print the members of the given TEAM." - (define port* (or port (current-output-port))) - (for-each - (lambda (member) - (format port* "~a~a~%" prefix (member->string member))) - (sort-members (team-members team)))) + (for-each (lambda (member) + (format #t "~a~a~%" prefix (member->string member))) + (sort-members (team-members team)))) (define (list-teams) "Print all teams, their scope and their members." @@ -698,7 +696,7 @@ description: ~a (match (team-scope team) (() "") (scope (format #f "scope: ~{~s ~}~%" scope)))) - (list-members team port* "+ ") + (list-members team #:prefix "+ ") (newline)) (sort (hash-map->list (lambda (key value) value) %teams) -- cgit v1.2.3