04/04: services: mpd: Rename %set-user-group to set-user-group.

[guix-commits]

apteryx pushed a commit to branch master
in repository guix.

commit 005912c595bf7a3329f8aa51a4ccb1d91b6ecd9e
Author: Maxim Cournoyer <maxim.cournoyer@gmail.com>
AuthorDate: Wed Apr 26 20:22:51 2023 -0400

    services: mpd: Rename %set-user-group to set-user-group.
    
    The convention to use % as a prefix is for "special" variables rather than
    procedures.
    
    * gnu/services/audio.scm (%set-user-group): Rename to...
    (set-user-group): ... this.
---
 gnu/services/audio.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/gnu/services/audio.scm b/gnu/services/audio.scm
index dc83479e40..7874539810 100644
--- a/gnu/services/audio.scm
+++ b/gnu/services/audio.scm
@@ -143,7 +143,7 @@
 ;; Helpers for deprecated field types, to be removed later.
 (define %lazy-group (make-symbol "%lazy-group"))
 
-(define (%set-user-group user group)
+(define (set-user-group user group)
   (user-account
    (inherit user)
    (group (user-group-name group))))
@@ -636,7 +636,7 @@ MPD (PID ~a)." pid))
   (match-record config <mpd-configuration> (user group)
     ;; TODO: Deprecation code, to be removed.
     (let ((user (if (eq? (user-account-group user) %lazy-group)
-                    (%set-user-group user group)
+                    (set-user-group user group)
                     user)))
       (list user group))))
 
@@ -907,7 +907,7 @@ prompting a pin from the user.")
   (match-record config <mympd-configuration> (user group)
     ;; TODO: Deprecation code, to be removed.
     (let ((user (if (eq? (user-account-group user) %lazy-group)
-                    (%set-user-group user group)
+                    (set-user-group user group)
                     user)))
       (list user group))))