me/guix
Archived
1
0
Fork 0
Code Activity

services: configuration: Rewrite id procedure.

Browse source 
* 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>
This commit is contained in:
Mathieu Othacehe 2017-03-24 11:00:14 +01:00 • committed by Clément Lassieur
parent e7c797f348
commit d02c3c2234
No known key found for this signature in database
GPG key ID: 89F96D4808F359C7
1 changed files with 3 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
gnu/services/configuration.scm
View file

@ -87,14 +87,9 @@
(configuration-field-name field) val)))) (configuration-field-name field) val))))
fields)) fields))
(define (id ctx part . parts) (define-syntax-rule (id ctx parts ...)
(let ((part (syntax->datum part))) "Assemble PARTS into a raw (unhygienic) identifier."
(datum->syntax (datum->syntax ctx (symbol-append (syntax->datum parts) ...)))
ctx
(match parts
(() part)
(parts (symbol-append part
(syntax->datum (apply id ctx parts))))))))
(define-syntax define-maybe (define-syntax define-maybe
(lambda (x) (lambda (x)