diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2017-03-08 13:23:57 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2017-03-08 23:42:52 +0100 |
| commit | 5d1ee4d7bc8fa3953c498057da3220029ba7c69d (patch) | |
| tree | cf3078994f03d0b53ea9fd6ac602e62dd0e3cebc /gnu/services/messaging.scm | |
| parent | beb1e8067d163b9d681b613c56e13e4da304582e (diff) | |
| download | patches-5d1ee4d7bc8fa3953c498057da3220029ba7c69d.tar patches-5d1ee4d7bc8fa3953c498057da3220029ba7c69d.tar.gz | |
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.
Diffstat (limited to 'gnu/services/messaging.scm')
| -rw-r--r-- | gnu/services/messaging.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/gnu/services/messaging.scm b/gnu/services/messaging.scm index 9f59d6eac6..cd740c7bc0 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) |