aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMathieu Othacehe <m.othacehe@gmail.com>2017-03-24 11:00:14 +0100
committerClément Lassieur <clement@lassieur.org>2017-03-24 16:09:17 +0100
commitd02c3c2234a3d3880b16efc263178d269bea0412 (patch)
tree8f96b3bd1d69e2b979bc654c5275a726ed8260b8
parente7c797f3481a35905a5861059294815b2210f889 (diff)
downloadguix-d02c3c2234a3d3880b16efc263178d269bea0412.tar
guix-d02c3c2234a3d3880b16efc263178d269bea0412.tar.gz
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 <clement@lassieur.org>
-rw-r--r--gnu/services/configuration.scm11
1 files changed, 3 insertions, 8 deletions
diff --git a/gnu/services/configuration.scm b/gnu/services/configuration.scm
index 400f231b94..0a2219e743 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)