~ruther/guix-local

d02c3c2234a3d3880b16efc263178d269bea0412 — Mathieu Othacehe 9 years ago e7c797f 
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>
patch browse .tar.gz 
1 files changed, 3 insertions(+), 8 deletions(-)

M gnu/services/configuration.scm

M gnu/services/configuration.scm => gnu/services/configuration.scm +3 -8
@@ 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)