summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--gnu/installer/services.scm16
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))))))