HCoop
/
jackhill
/
guix
/
guix.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
beb1e80
)
services: prosody: Make sure 'id' is available at expansion time.
author
Ludovic Courtès
<ludo@gnu.org>
Wed, 8 Mar 2017 12:23:57 +0000
(13:23 +0100)
committer
Ludovic Courtès
<ludo@gnu.org>
Wed, 8 Mar 2017 22:42:52 +0000
(23:42 +0100)
* 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
patch
|
blob
|
blame
|
history
diff --git
a/gnu/services/messaging.scm
b/gnu/services/messaging.scm
index
9f59d6e
..
cd740c7
100644
(file)
--- 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)