ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 21:38:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

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

Browse source 
* gnu/services/messaging.scm (id): Use 'define-syntax-rule' instead of
'define' to make sure 'id' is available at expansion time.
This commit is contained in:
Ludovic Courtès 2017-03-08 13:23:57 +01:00
parent beb1e8067d
commit 5d1ee4d7bc
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
gnu/services/messaging.scm
View file

@ -49,8 +49,9 @@ (define-module (gnu services messaging)
;;;
;;; 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)