[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
04/04: doc: Replace some cons* with beginner-friendly (append (list ...)
From: |
guix-commits |
Subject: |
04/04: doc: Replace some cons* with beginner-friendly (append (list ...)). |
Date: |
Mon, 21 Jan 2019 16:12:29 -0500 (EST) |
ambrevar pushed a commit to branch install-doc-overhaul
in repository guix.
commit 6a7d7ca78442a2132d4a44220ddbb38519bc1074
Author: Pierre Neidhardt <address@hidden>
Date: Mon Jan 21 20:24:44 2019 +0100
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 e73302d..861c4d3 100644
--- a/doc/guix.texi
+++ b/doc/guix.texi
@@ -10857,9 +10857,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
@@ -11489,11 +11489,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