[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
03/06: services: configuration: Rewrite id procedure.
From: |
Clément Lassieur |
Subject: |
03/06: services: configuration: Rewrite id procedure. |
Date: |
Fri, 24 Mar 2017 11:12:48 -0400 (EDT) |
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)
- branch master updated (4d3d3bd -> 1c17a86), Clément Lassieur, 2017/03/24
- 03/06: services: configuration: Rewrite id procedure.,
Clément Lassieur <=
- 01/06: gnu: tlp: Read configuration from /etc/tlp., Clément Lassieur, 2017/03/24
- 05/06: services: openvpn: Fix a typo which was corrected in generated doc., Clément Lassieur, 2017/03/24
- 02/06: services: Factorize define-maybe macro., Clément Lassieur, 2017/03/24
- 06/06: doc: Re-generate openvpn service documentation., Clément Lassieur, 2017/03/24
- 04/06: gnu: Add tlp service., Clément Lassieur, 2017/03/24