From 881a4cf13ac5ee98bb2fbecdcd5db14e30e96b96 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Tue, 19 Mar 2013 16:57:46 +0100
Subject: Work around <http://bugs.gnu.org/13095> in build-aux/download.scm.

* build-aux/download.scm: Annihilate `shutdown' in (web client).
  Reported by Aljosha Papsch.
---
 build-aux/download.scm | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'build-aux')

diff --git a/build-aux/download.scm b/build-aux/download.scm
index 62956378ed..c5486f8970 100644
--- a/build-aux/download.scm
+++ b/build-aux/download.scm
@@ -34,6 +34,11 @@
   ;;"http://www.fdn.fr/~lcourtes/software/guix/packages"
   )
 
+;; XXX: Work around <http://bugs.gnu.org/13095>, present in Guile
+;; up to 2.0.7.
+(module-define! (resolve-module '(web client))
+                'shutdown (const #f))
+
 (define (file-name->uri file)
   "Return the URI for FILE."
   (match (string-tokenize file (char-set-complement (char-set #\/)))
-- 
cgit v1.2.3