From b1c4dafbf1428b5e004c2c1c173eaa8b7a73ed39 Mon Sep 17 00:00:00 2001
From: Pierre Neidhardt <mail@ambrevar.xyz>
Date: Mon, 21 Jan 2019 20:24:44 +0100
Subject: [PATCH] doc: Replace some cons* with beginner-friendly (append (list
...)).
* doc/guix.texi (Base Services): Do it.
---
doc/guix.texi | 17 +++++++++--------
1 file changed, 9 insertions(+), 8 deletions(-)
diff --git a/doc/guix.texi b/doc/guix.texi
index b8071d17de..afc0ef8615 100644
--- a/doc/guix.texi
+++ b/doc/guix.texi
@@ -10888,9 +10888,9 @@ system, you will want to append services to @var{%base-services}, like
this:
@example
-(cons* (service avahi-service-type)
- (service openssh-service-type)
- %base-services)
+(append (list (service avahi-service-type)
+ (service openssh-service-type))
+ %base-services)
@end example
@end defvr
@@ -11520,11 +11520,12 @@ well as in the @var{groups} field of the @var{operating-system} record.
;; @dots{}
(services
- (modify-services %desktop-services
- (udev-service-type config =>
- (udev-configuration (inherit config)
- (rules (cons* android-udev-rules
- (udev-configuration-rules config))))))))
+ (modify-services %desktop-services
+ (udev-service-type
+ config =>
+ (udev-configuration (inherit config)
+ (rules (cons android-udev-rules
+ (udev-configuration-rules config))))))))
@end example
@defvr {Scheme Variable} urandom-seed-service-type