From dd0826fbf345dfe7289cf943ed2d29edc51d543f Mon Sep 17 00:00:00 2001 From: Maxim Cournoyer Date: Sat, 8 May 2021 00:54:03 -0400 Subject: 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) : 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(-) (limited to 'gnu/services') diff --git a/gnu/services/configuration.scm b/gnu/services/configuration.scm index e7eb61efe8..77fbc61f08 100644 --- a/gnu/services/configuration.scm +++ b/gnu/services/configuration.scm @@ -156,7 +156,7 @@ (define-record-type* #,(id #'stem #'< #'stem #'>) #,(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)) -- cgit v1.2.3