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.

1 files changed, 5 insertions, 7 deletions

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)