guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

08/08: installer: Use 'append' and 'list' instead of 'cons*'.


From: guix-commits
Subject: 08/08: installer: Use 'append' and 'list' instead of 'cons*'.
Date: Mon, 8 Apr 2019 04:42:59 -0400 (EDT)

civodul pushed a commit to branch master
in repository guix.

commit 8d75e20e4b62470e0f0e63556794ea5a02c34359
Author: Ludovic Court├Ęs <address@hidden>
Date:   Mon Apr 8 10:42:10 2019 +0200

    installer: Use 'append' and 'list' instead of 'cons*'.
    
    * gnu/installer/services.scm (system-services->configuration): Use
    'append' and 'list' instead of 'cons*'.
---
 gnu/installer/services.scm | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/gnu/installer/services.scm b/gnu/installer/services.scm
index 1036b21..0e98392 100644
--- a/gnu/installer/services.scm
+++ b/gnu/installer/services.scm
@@ -102,13 +102,13 @@
                        '%base-services)))
     (if (null? snippets)
         `((services ,base))
-        `((services (cons* ,@snippets
-
-                           ,@(if desktop?
-                                 ;; XXX: Assume 'keyboard-layout' is in scope.
-                                 '((set-xorg-configuration
-                                    (xorg-configuration
-                                     (keyboard-layout keyboard-layout))))
-                                 '())
+        `((services (append (list ,@snippets
 
+                                  ,@(if desktop?
+                                        ;; XXX: Assume 'keyboard-layout' is in
+                                        ;; scope.
+                                        '((set-xorg-configuration
+                                           (xorg-configuration
+                                            (keyboard-layout 
keyboard-layout))))
+                                        '()))
                            ,base))))))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]