~ruther/guix-local: install: The list of services is now a plain list.

58b21e1e093c8b19d968a76eb962574b8d38053f — Ludovic Courtès 9 years ago acb5f7c

install: The list of services is now a plain list.

* gnu/system/install.scm (installation-services): Rename to...
(%installation-services): ... this.  Turn into a list instead of a thunk.

patch browse .tar.gz

1 files changed, 3 insertions(+), 4 deletions(-)

M gnu/system/install.scm

M gnu/system/install.scm => gnu/system/install.scm +3 -4

@@ 255,8 255,8 @@ the user's target storage device rather than on the RAM disk."
                     (persistent? #f)
                     (max-database-size (* 5 (expt 2 20)))))) ;5 MiB
 
-(define (installation-services)
-  "Return the list services for the installation image."
+(define %installation-services
+  ;; List of services of the installation system.
   (let ((motd (plain-file "motd" "
 Welcome to the installation of the Guix System Distribution!
 


@@ 377,8 377,7 @@ Use Alt-F2 for documentation.
                   (home-directory "/home/guest"))))
 
     (issue %issue)
-
-    (services (installation-services))
+    (services %installation-services)
 
     ;; We don't need setuid programs so pass the empty list so we don't pull
     ;; additional programs here.