03/06: services: configuration: Rewrite id procedure.

[Clément Lassieur]

snape pushed a commit to branch master
in repository guix.

commit d02c3c2234a3d3880b16efc263178d269bea0412
Author: Mathieu Othacehe <address@hidden>
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 <address@hidden>
---
 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)