apteryx pushed a commit to branch master
in repository guix.
commit dd0826fbf345dfe7289cf943ed2d29edc51d543f
Author: Maxim Cournoyer <[email protected]>
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))
