04/06: services: configuration: Fix %location accessor name.

[guix-commits]

apteryx pushed a commit to branch master
in repository guix.

commit dd0826fbf345dfe7289cf943ed2d29edc51d543f
Author: Maxim Cournoyer <maxim.cournoyer@gmail.com>
AuthorDate: Sat May 8 00:54:03 2021 -0400

    services: configuration: Fix %location accessor name.
    
    The non-hygienic binding of the source location accessor was set to
    '-location'; in modules where multiple configurations were defined, it would
    cause compilation warnings such as:
    
        gnu/services/mail.scm:175:0: warning: shadows previous definition of
        `%-location-procedure' at gnu/services/mail.scm:165:0
    
    * gnu/services/configuration.scm (define-configuration-helper) <id>: Add a
    missing #'stem argument to use the configuration name as a prefix to the
    location accessor identifier.
---
 gnu/services/configuration.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/gnu/services/configuration.scm b/gnu/services/configuration.scm
index e7eb61e..77fbc61 100644
--- a/gnu/services/configuration.scm
+++ b/gnu/services/configuration.scm
@@ -156,7 +156,7 @@ does not have a default value" field kind)))
             #,(id #'stem #'% #'stem)
             #,(id #'stem #'make- #'stem)
             #,(id #'stem #'stem #'?)
-            (%location #,(id #'stem #'-location)
+            (%location #,(id #'stem #'stem #'-location)
                        (default (and=> (current-source-location)
                                        source-properties->location))
                        (innate))