03/16: services: prosody: Make sure 'id' is available at expansion time.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit 5d1ee4d7bc8fa3953c498057da3220029ba7c69d
Author: Ludovic Courtès <address@hidden>
Date:   Wed Mar 8 13:23:57 2017 +0100

    services: prosody: Make sure 'id' is available at expansion time.
    
    * gnu/services/messaging.scm (id): Use 'define-syntax-rule' instead of
    'define' to make sure 'id' is available at expansion time.
---
 gnu/services/messaging.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/gnu/services/messaging.scm b/gnu/services/messaging.scm
index 9f59d6e..cd740c7 100644
--- a/gnu/services/messaging.scm
+++ b/gnu/services/messaging.scm
@@ -49,8 +49,9 @@
 ;;;
 ;;; Code:
 
-(define (id ctx . parts)
-  (datum->syntax ctx (apply symbol-append (map syntax->datum parts))))
+(define-syntax-rule (id ctx parts ...)
+  "Assemble PARTS into a raw (unhygienic) identifier."
+  (datum->syntax ctx (symbol-append (syntax->datum parts) ...)))
 
 (define-syntax define-maybe
   (lambda (x)