~ruther/guix-local: services: boot: Reinstate /tmp and /var/run deletion.

94af9daa73f600f8c96d787f425351c090ffd63f — Ludovic Courtès 10 years ago db5a944

services: boot: Reinstate /tmp and /var/run deletion.

For some time /tmp and /var/run were not being deleted because
'delete-file-recursively' was unbound.

* gnu/services.scm (compute-boot-script)[%modules, modules, compiled]:
New variables.  Use them to augment the module search path.

patch browse .tar.gz

1 files changed, 13 insertions(+), 2 deletions(-)

M gnu/services.scm

M gnu/services.scm => gnu/services.scm +13 -2

@@ 1,5 1,5 @@
 ;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2015 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright © 2015, 2016 Ludovic Courtès <ludo@gnu.org>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;


@@ 206,9 206,20 @@ containing the given entries."
                 (extend system-derivation)))
 
 (define (compute-boot-script _ mexps)
-  (mlet %store-monad ((gexps (sequence %store-monad mexps)))
+  (define %modules
+    '((guix build utils)))
+
+  (mlet* %store-monad ((gexps    (sequence %store-monad mexps))
+                       (modules  (imported-modules %modules))
+                       (compiled (compiled-modules %modules)))
     (gexp->file "boot"
                 #~(begin
+                    (eval-when (expand load eval)
+                      ;; Make sure 'use-modules' below succeeds.
+                      (set! %load-path (cons #$modules %load-path))
+                      (set! %load-compiled-path
+                        (cons #$compiled %load-compiled-path)))
+
                     (use-modules (guix build utils))
 
                     ;; Clean out /tmp and /var/run.