From 6d7328b2f19d2a13d18e34cc875f6c8b5218ac1d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Tue, 30 Sep 2014 10:11:38 +0200
Subject: [PATCH] pull: Add dependency on Guile-JSON.

Reported by Alex Sassmannshausen <alex.sassmannshausen@gmail.com>.

* guix/scripts/pull.scm (unpack): Add Guile-JSON to %load-path and
  %load-compiled-path.
---
 guix/scripts/pull.scm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/guix/scripts/pull.scm b/guix/scripts/pull.scm
index c2ea0e3d97..919ef2d467 100644
--- a/guix/scripts/pull.scm
+++ b/guix/scripts/pull.scm
@@ -47,6 +47,10 @@ (define builder
     #~(begin
         (use-modules (guix build pull))
 
+        (let ((json (string-append #$guile-json "/share/guile/site/2.0")))
+          (set! %load-path (cons json %load-path))
+          (set! %load-compiled-path (cons json %load-compiled-path)))
+
         (build-guix #$output #$tarball
 
                     ;; XXX: This is not perfect, enabling VERBOSE? means