diff options
| author | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2023-04-26 20:22:51 -0400 |
|---|---|---|
| committer | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2023-07-25 13:04:18 -0400 |
| commit | 005912c595bf7a3329f8aa51a4ccb1d91b6ecd9e (patch) | |
| tree | c6148bbf70e91e76781a0795acf937be86affdcb | |
| parent | 42c8a2e296ebaa98fe9bb04c0e59abfe7c5431de (diff) | |
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.
| -rw-r--r-- | gnu/services/audio.scm | 6 |
1 files 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)))) |