[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
04/16: services: prosody: Use 'id' to introduce unhygienic top-level ide
From: |
Ludovic Courtès |
Subject: |
04/16: services: prosody: Use 'id' to introduce unhygienic top-level identifiers. |
Date: |
Wed, 8 Mar 2017 17:44:33 -0500 (EST) |
civodul pushed a commit to branch master
in repository guix.
commit 10999889042cff74b98515507d822f2096e91e8e
Author: Ludovic Courtès <address@hidden>
Date: Wed Mar 8 14:04:52 2017 +0100
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.
---
gnu/services/messaging.scm | 10 +++++-----
1 file changed, 5 insertions(+), 5 deletions(-)
diff --git a/gnu/services/messaging.scm b/gnu/services/messaging.scm
index cd740c7..34723dc 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 ...)))))))))
- branch master updated (6f5d28f -> 7447aa3), Ludovic Courtès, 2017/03/08
- 03/16: services: prosody: Make sure 'id' is available at expansion time., Ludovic Courtès, 2017/03/08
- 02/16: gnu: Remove unneeded imports., Ludovic Courtès, 2017/03/08
- 04/16: services: prosody: Use 'id' to introduce unhygienic top-level identifiers.,
Ludovic Courtès <=
- 05/16: build: Unset 'NIX_BUILD_HOOK' when offloading support is missing., Ludovic Courtès, 2017/03/08
- 09/16: gnu: Add guile2.2-reader., Ludovic Courtès, 2017/03/08
- 01/16: guix archive: Allow compilation with Guile 2.2., Ludovic Courtès, 2017/03/08
- 06/16: hash: Close or flush sha256 output ports before calling their 'get' procedure., Ludovic Courtès, 2017/03/08
- 11/16: download: Update the Savannah mirror list., Ludovic Courtès, 2017/03/08
- 12/16: ui: Avoid '_' as a pattern variable in 'match'., Ludovic Courtès, 2017/03/08
- 15/16: packages: Use address@hidden syntax when reporting ambiguities., Ludovic Courtès, 2017/03/08
- 13/16: ui: Don't use '%default-port-encoding' to set the encoding of string ports., Ludovic Courtès, 2017/03/08
- 16/16: utils: Make sure to use the right 'bytevector->string'., Ludovic Courtès, 2017/03/08
- 14/16: list-runtime-roots: Bufferize the lsof pipe., Ludovic Courtès, 2017/03/08