[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: |
Wed, 23 Jan 2019 12:01:45 -0500 (EST) |
ambrevar pushed a commit to branch master
in repository guix.
commit b1c4dafbf1428b5e004c2c1c173eaa8b7a73ed39
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 b8071d1..afc0ef8 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