snape pushed a commit to branch master
in repository guix.
commit d02c3c2234a3d3880b16efc263178d269bea0412
Author: Mathieu Othacehe <[email protected]>
Date: Fri Mar 24 11:00:14 2017 +0100
services: configuration: Rewrite id procedure.
* gnu/services/configuration.scm (id): Replace it using the more concise
version found in messaging.scm.
Signed-off-by: Clément Lassieur <[email protected]>
---
gnu/services/configuration.scm | 11 +++--------
1 file changed, 3 insertions(+), 8 deletions(-)
diff --git a/gnu/services/configuration.scm b/gnu/services/configuration.scm
index 400f231..0a2219e 100644
--- a/gnu/services/configuration.scm
+++ b/gnu/services/configuration.scm
@@ -87,14 +87,9 @@
(configuration-field-name field) val))))
fields))
-(define (id ctx part . parts)
- (let ((part (syntax->datum part)))
- (datum->syntax
- ctx
- (match parts
- (() part)
- (parts (symbol-append part
- (syntax->datum (apply id ctx 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)
