nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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.
This commit is contained in:
Ludovic Courtès 2017-03-08 14:04:52 +01:00
parent 5d1ee4d7bc
commit 1099988904
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
gnu/services/messaging.scm
View File

@ -95,21 +95,21 @@
"" doc)) "" doc))
#'(doc ...) #'(target ...)))) #'(doc ...) #'(target ...))))
#`(begin #`(begin
(define common-fields (define #,(id #'stem #'common-fields)
'(#,@(filter-map (make-pred #f) #'(field ...) #'(target ...)))) '(#,@(filter-map (make-pred #f) #'(field ...) #'(target ...))))
(define-configuration prosody-configuration (define-configuration #,(id #'stem #'prosody-configuration)
#,@(filter-map (make-pred 'global) #,@(filter-map (make-pred 'global)
#'((field (field-type def) doc) ...) #'((field (field-type def) doc) ...)
#'(target ...))) #'(target ...)))
(define-configuration virtualhost-configuration (define-configuration #,(id #'stem #'virtualhost-configuration)
#,@(filter-map (make-pred 'virtualhost) #,@(filter-map (make-pred 'virtualhost)
#'((field (new-field-type new-def) new-doc) ...) #'((field (new-field-type new-def) new-doc) ...)
#'(target ...))) #'(target ...)))
(define-configuration int-component-configuration (define-configuration #,(id #'stem #'int-component-configuration)
#,@(filter-map (make-pred 'int-component) #,@(filter-map (make-pred 'int-component)
#'((field (new-field-type new-def) new-doc) ...) #'((field (new-field-type new-def) new-doc) ...)
#'(target ...))) #'(target ...)))
(define-configuration ext-component-configuration (define-configuration #,(id #'stem #'ext-component-configuration)
#,@(filter-map (make-pred 'ext-component) #,@(filter-map (make-pred 'ext-component)
#'((field (new-field-type new-def) new-doc) ...) #'((field (new-field-type new-def) new-doc) ...)
#'(target ...))))))))) #'(target ...)))))))))