diff options
| author | Mathieu Othacehe <m.othacehe@gmail.com> | 2017-03-24 11:00:14 +0100 |
|---|---|---|
| committer | Clément Lassieur <clement@lassieur.org> | 2017-03-24 16:09:17 +0100 |
| commit | d02c3c2234a3d3880b16efc263178d269bea0412 (patch) | |
| tree | 8f96b3bd1d69e2b979bc654c5275a726ed8260b8 /gnu/services/configuration.scm | |
| parent | e7c797f3481a35905a5861059294815b2210f889 (diff) | |
| download | patches-d02c3c2234a3d3880b16efc263178d269bea0412.tar patches-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>
Diffstat (limited to 'gnu/services/configuration.scm')
| -rw-r--r-- | gnu/services/configuration.scm | 11 |
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) |