02/03: linux-container: Use 'source-module-closure' when generating the script.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit 5e7eaccb14382b2d49bc8b4fc10fc57876d6c56f
Author: Ludovic Courtès <address@hidden>
Date:   Thu Nov 10 17:54:57 2016 +0100

    linux-container: Use 'source-module-closure' when generating the script.
    
    * gnu/system/linux-container.scm (container-script)[script]: Use
    'source-module-closure' in 'with-imported-modules' form.
---
 gnu/system/linux-container.scm |   13 +++++--------
 1 file changed, 5 insertions(+), 8 deletions(-)

diff --git a/gnu/system/linux-container.scm b/gnu/system/linux-container.scm
index d3c0036..189f9ef 100644
--- a/gnu/system/linux-container.scm
+++ b/gnu/system/linux-container.scm
@@ -1,5 +1,6 @@
 ;;; GNU Guix --- Functional package management for GNU
 ;;; Copyright © 2015 David Thompson <address@hidden>
+;;; Copyright © 2016 Ludovic Courtès <address@hidden>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -24,6 +25,7 @@
   #:use-module (guix gexp)
   #:use-module (guix derivations)
   #:use-module (guix monads)
+  #:use-module (guix modules)
   #:use-module (gnu build linux-container)
   #:use-module (gnu services)
   #:use-module (gnu system)
@@ -87,14 +89,9 @@ that will be shared with the host system."
                                   #:container? #t)))
 
       (define script
-        (with-imported-modules '((guix config)
-                                 (guix utils)
-                                 (guix combinators)
-                                 (guix build utils)
-                                 (guix build syscalls)
-                                 (guix build bournish)
-                                 (gnu build file-systems)
-                                 (gnu build linux-container))
+        (with-imported-modules (source-module-closure
+                                '((guix build utils)
+                                  (gnu build linux-container)))
           #~(begin
               (use-modules (gnu build linux-container)
                            (guix build utils))