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.
This commit is contained in:
Ludovic Courtès 2013-03-19 16:57:46 +01:00
parent ce41a4629c
commit 881a4cf13a
1 changed files with 5 additions and 0 deletions

View File

@ -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 #\/)))