01/01: pack: Fix guix pack -f docker.

[Christopher Baines]

cbaines pushed a commit to branch master
in repository guix.

commit 5970ceddfaaa449b7224e11d4f6a5f2305408179
Author: Christopher Baines <address@hidden>
Date:   Fri Jun 22 22:44:12 2018 +0100

    pack: Fix guix pack -f docker.
    
    Without this change, running guix pack fails as (guix sets) is missing when
    compiling (guix build store-copy).
    
    * guix/scripts/pack.scm (docker-image): Move (guix build store-copy) to 
within
    the source-module-closure call.
---
 guix/scripts/pack.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/guix/scripts/pack.scm b/guix/scripts/pack.scm
index ed876b2..443d199 100644
--- a/guix/scripts/pack.scm
+++ b/guix/scripts/pack.scm
@@ -364,9 +364,9 @@ the image."
   (define build
     ;; Guile-JSON is required by (guix docker).
     (with-extensions (list json)
-      (with-imported-modules `(,@(source-module-closure '((guix docker))
+      (with-imported-modules `(,@(source-module-closure '((guix docker)
+                                                          (guix build 
store-copy))
                                                         #:select? not-config?)
-                               (guix build store-copy)
                                ((guix config) => ,config))
         #~(begin
             (use-modules (guix docker) (srfi srfi-19) (guix build store-copy))