diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2017-03-08 14:04:52 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2017-03-08 23:42:52 +0100 |
| commit | 10999889042cff74b98515507d822f2096e91e8e (patch) | |
| tree | 7c70db7fdc3fd564f217527aa555515328be748a | |
| parent | 5d1ee4d7bc8fa3953c498057da3220029ba7c69d (diff) | |
| download | guix-10999889042cff74b98515507d822f2096e91e8e.tar.gz guix-10999889042cff74b98515507d822f2096e91e8e.zip | |
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.scm | 10 |
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 ...))))))))) |