~ruther/guix-local: services: prosody: Make sure 'id' is available at expansion time.

5d1ee4d7bc8fa3953c498057da3220029ba7c69d — Ludovic Courtès 9 years ago beb1e80

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.

patch browse .tar.gz

1 files changed, 3 insertions(+), 2 deletions(-)

M gnu/services/messaging.scm

M gnu/services/messaging.scm => gnu/services/messaging.scm +3 -2

@@ 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)