GNU bug report logs - #26137
[PATCH 0/6 v2] Add tlp service.

Previous Next

Full log

Message #14 received at 26137 <at> debbugs.gnu.org (full text, mbox):

From: Mathieu Othacehe <m.othacehe <at> gmail.com>
To: 26137 <at> debbugs.gnu.org
Cc: Mathieu Othacehe <m.othacehe <at> gmail.com>
Subject: [PATCH 3/6] services: configuration: Rewrite id procedure.
Date: Fri, 17 Mar 2017 11:34:27 +0100

* gnu/services/configuration.scm (id): Replace it using the more concise
  version found in messaging.scm.
---
 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 f59920d5a..4ee92e35f 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)
-- 
2.12.0

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.