Re: Bug in configure.ac - Wrong guile version

[ludo@gnu.org (Ludovic Courtès)]

[-- Attachment #1: Type: text/plain, Size: 917 bytes --]

John Darrington <john@darrington.wattle.id.au> skribis:

>    ?: 3 [primitive-load-path "guix/http-client" #f]
> In ice-9/eval.scm:
>  407: 2 [eval # ()]
> In unknown file:
>    ?: 1 [scm-error misc-error #f ...]
> In ice-9/boot-9.scm:
>  106: 0 [#<procedure 9c7b40 at ice-9/boot-9.scm:97:6 (thrown-k . args)> misc-error ...]
>
> ice-9/boot-9.scm:106:20: In procedure #<procedure 9c7b40 at ice-9/boot-9.scm:97:6 (thrown-k . args)>:
> ice-9/boot-9.scm:106:20: No variable named make-delimited-input-port in #<directory (web response) dc8240>

The problem is an incomplete compatibility later with Guile 2.0.5.

You should be able to get compilation going with the patch below, but
getting the HTTP client to work with 2.0.5 will require more work.

At this point, we may have to bundle our own (web ...) modules rather
than try to monkey-patch things.  Needs more thought...

Thanks,
Ludo’.


[-- Attachment #2: Type: text/x-patch, Size: 1004 bytes --]

--- a/guix/http-client.scm
+++ b/guix/http-client.scm
@@ -1,5 +1,5 @@
 ;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2012, 2013, 2014 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright © 2012, 2013, 2014, 2015 Ludovic Courtès <ludo@gnu.org>
 ;;; Copyright © 2015 Mark H Weaver <mhw@netris.org>
 ;;; Copyright © 2012, 2015 Free Software Foundation, Inc.
 ;;;
@@ -173,8 +173,8 @@ closes PORT, unless KEEP-ALIVE? is true."
  (unless (guile-version>? "2.0.9")
    ;; Guile <= 2.0.9 had a bug whereby 'response-body-port' would read more
    ;; than what 'content-length' says.  See Guile commit 802a25b.
-   (module-set! (resolve-module '(web response))
-                'make-delimited-input-port make-delimited-input-port))
+   (module-define! (resolve-module '(web response))
+                   'make-delimited-input-port make-delimited-input-port))
 
  (define (read-response-body* r)
    "Reads the response body from @var{r}, as a bytevector.  Returns