diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2019-04-08 10:42:10 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2019-04-08 10:42:51 +0200 |
| commit | 8d75e20e4b62470e0f0e63556794ea5a02c34359 (patch) | |
| tree | 3845ab2ee27ce88dc5f152d5b6c6adbe01f61e79 | |
| parent | 469e56b4afc7a6bfdc070faf162f9fed42eca1d5 (diff) | |
| download | guix-8d75e20e4b62470e0f0e63556794ea5a02c34359.tar.gz | |
installer: Use 'append' and 'list' instead of 'cons*'.
* gnu/installer/services.scm (system-services->configuration): Use 'append' and 'list' instead of 'cons*'.
| -rw-r--r-- | gnu/installer/services.scm | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/gnu/installer/services.scm b/gnu/installer/services.scm index 1036b21070..0e98392bfb 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)))))) |