04/04: pack: Use 'guile2.0-json' when building with Guile 2.0.

[Ludovic Courtès]

civodul pushed a commit to branch version-0.13.0
in repository guix.

commit 96afb480f8165a315a69b1dd3a031e053044d3b2
Author: Ludovic Courtès <address@hidden>
Date:   Sat May 20 14:28:24 2017 +0200

    pack: Use 'guile2.0-json' when building with Guile 2.0.
    
    Fixes <http://bugs.gnu.org/27005>.
    Reported by Pjotr Prins <address@hidden>.
    
    Fixes a regression introduced in commit
    2252f087d4bd450ab41a71379320467887edfc0f.
    
    * guix/scripts/pack.scm (docker-image)[json]: New variable.
    [build]: Use it.
---
 guix/scripts/pack.scm | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/guix/scripts/pack.scm b/guix/scripts/pack.scm
index 1595be1..1273c09 100644
--- a/guix/scripts/pack.scm
+++ b/guix/scripts/pack.scm
@@ -35,7 +35,7 @@
   #:autoload   (gnu packages base) (tar)
   #:autoload   (gnu packages package-management) (guix)
   #:autoload   (gnu packages gnupg) (libgcrypt)
-  #:autoload   (gnu packages guile) (guile-json)
+  #:autoload   (gnu packages guile) (guile2.0-json guile-json)
   #:use-module (srfi srfi-1)
   #:use-module (srfi srfi-9)
   #:use-module (srfi srfi-37)
@@ -217,6 +217,13 @@ the image."
                        (define %libgcrypt
                          #+(file-append libgcrypt "/lib/libgcrypt"))))))
 
+  (define json
+    ;; Pick the guile-json package that corresponds to the Guile used to build
+    ;; derivations.
+    (if (string-prefix? "2.0" (package-version (default-guile)))
+        guile2.0-json
+        guile-json))
+
   (define build
     (with-imported-modules `(,@(source-module-closure '((guix docker))
                                                       #:select? not-config?)
@@ -224,7 +231,7 @@ the image."
       #~(begin
           ;; Guile-JSON is required by (guix docker).
           (add-to-load-path
-           (string-append #$guile-json "/share/guile/site/"
+           (string-append #+json "/share/guile/site/"
                           (effective-version)))
 
           (use-modules (guix docker) (srfi srfi-19))