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:
parent
ce41a4629c
commit
881a4cf13a
|
@ -34,6 +34,11 @@
|
||||||
;;"http://www.fdn.fr/~lcourtes/software/guix/packages"
|
;;"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)
|
(define (file-name->uri file)
|
||||||
"Return the URI for FILE."
|
"Return the URI for FILE."
|
||||||
(match (string-tokenize file (char-set-complement (char-set #\/)))
|
(match (string-tokenize file (char-set-complement (char-set #\/)))
|
||||||
|
|
Loading…
Reference in New Issue