04/06: squash! system: Add `hurd-activation'.

[guix-commits]

janneke pushed a commit to branch wip-hurd-vm
in repository guix.

commit 92be344f3668311456b6c658610ec32f8bc35cc5
Author: Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
AuthorDate: Sat May 30 12:11:30 2020 +0200

    squash! system: Add `hurd-activation'.
---
 gnu/services.scm | 23 +++++++++++------------
 1 file changed, 11 insertions(+), 12 deletions(-)

diff --git a/gnu/services.scm b/gnu/services.scm
index f161635..4e0bbc0 100644
--- a/gnu/services.scm
+++ b/gnu/services.scm
@@ -559,20 +559,19 @@ ACTIVATION-SCRIPT-TYPE."
   (define actions
     (map (cut program-file "activate-service.scm" <>) gexps))
 
-  (program-file "activate.scm"
-                (with-imported-modules (source-module-closure
-                                        '((gnu build activation)
-                                          (guix build utils)))
-                  #~(begin
-                      (use-modules (gnu build activation)
-                                   (guix build utils))
+  (with-imported-modules (source-module-closure
+                          '((gnu build activation)
+                            (guix build utils)))
+    #~(begin
+        (use-modules (gnu build activation)
+                     (guix build utils))
 
-                      (mkdir-p "/var/run") ;for the PID files
-                      (mkdir-p "/var/log")
+        (mkdir-p "/var/run")            ;for the PID files
+        (mkdir-p "/var/log")
 
-                      ;; XXX TODO
-                      ;; (activate-hurd-system)
-                      (for-each primitive-load '#$actions)))))
+        ;; XXX TODO
+        ;; (activate-hurd-system)
+        (for-each primitive-load '#$actions))))
 
 (define (gexps->activation-gexp gexps)
   "Return a gexp that runs the activation script containing GEXPS."