From 005912c595bf7a3329f8aa51a4ccb1d91b6ecd9e Mon Sep 17 00:00:00 2001 From: Maxim Cournoyer Date: Wed, 26 Apr 2023 20:22:51 -0400 Subject: 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 (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 (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)))) -- cgit 1.4.1