diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2013-03-19 16:57:46 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2013-03-19 16:57:46 +0100 |
| commit | 881a4cf13ac5ee98bb2fbecdcd5db14e30e96b96 (patch) | |
| tree | eaefd045bb57c6d30749f2bbca3b70fe646ae0a1 /build-aux/download.scm | |
| parent | ce41a4629ce6e9502d62b617dd1a74d646ad5b43 (diff) | |
| download | patches-881a4cf13ac5ee98bb2fbecdcd5db14e30e96b96.tar patches-881a4cf13ac5ee98bb2fbecdcd5db14e30e96b96.tar.gz | |
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.
Diffstat (limited to 'build-aux/download.scm')
| -rw-r--r-- | build-aux/download.scm | 5 |
1 files changed, 5 insertions, 0 deletions
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 #\/))) |