summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2017-03-08 14:04:52 +0100
committerLudovic Courtès <ludo@gnu.org>2017-03-08 23:42:52 +0100
commit10999889042cff74b98515507d822f2096e91e8e (patch)
tree7c70db7fdc3fd564f217527aa555515328be748a
parent5d1ee4d7bc8fa3953c498057da3220029ba7c69d (diff)
downloadpatches-10999889042cff74b98515507d822f2096e91e8e.tar
patches-10999889042cff74b98515507d822f2096e91e8e.tar.gz
services: prosody: Use 'id' to introduce unhygienic top-level identifiers.
* gnu/services/messaging.scm (define-all-configurations): Use 'id' to introduce raw/literal/unhygienic top-level identifiers. Fixes compilation with Guile 2.2.
-rw-r--r--gnu/services/messaging.scm10
1 files changed, 5 insertions, 5 deletions
diff --git a/gnu/services/messaging.scm b/gnu/services/messaging.scm
index cd740c7bc0..34723dc11c 100644
--- a/gnu/services/messaging.scm
+++ b/gnu/services/messaging.scm
@@ -95,21 +95,21 @@
"" doc))
#'(doc ...) #'(target ...))))
#`(begin
- (define common-fields
+ (define #,(id #'stem #'common-fields)
'(#,@(filter-map (make-pred #f) #'(field ...) #'(target ...))))
- (define-configuration prosody-configuration
+ (define-configuration #,(id #'stem #'prosody-configuration)
#,@(filter-map (make-pred 'global)
#'((field (field-type def) doc) ...)
#'(target ...)))
- (define-configuration virtualhost-configuration
+ (define-configuration #,(id #'stem #'virtualhost-configuration)
#,@(filter-map (make-pred 'virtualhost)
#'((field (new-field-type new-def) new-doc) ...)
#'(target ...)))
- (define-configuration int-component-configuration
+ (define-configuration #,(id #'stem #'int-component-configuration)
#,@(filter-map (make-pred 'int-component)
#'((field (new-field-type new-def) new-doc) ...)
#'(target ...)))
- (define-configuration ext-component-configuration
+ (define-configuration #,(id #'stem #'ext-component-configuration)
#,@(filter-map (make-pred 'ext-component)
#'((field (new-field-type new-def) new-doc) ...)
#'(target ...)))))))))