Re: cannot fetch narinfo with HTTP pipelining

[Ricardo Wurmus]

Ludovic Courtès writes:

> Ricardo Wurmus <address@hidden> skribis:
>
>> The numbers in the `bad-response' error message differ for different
>> operations.  In all cases the first number (here 403) is larger than the
>> second (here 15).  The second number is the reported content length.
>
> That rings a bell.
>
> Could you try this patch?

Thanks for the patch.  Unfortunately, guix fails to compile with the
patch applied:

~~~~~
address@hidden:/localhome/rwurmus-tmp/guix] (621) $ make
make  all-recursive
make[1]: Entering directory `/localhome/rwurmus-tmp/guix'
Making all in po/guix
make[2]: Entering directory `/localhome/rwurmus-tmp/guix/po/guix'
make[2]: Leaving directory `/localhome/rwurmus-tmp/guix/po/guix'
Making all in po/packages
make[2]: Entering directory `/localhome/rwurmus-tmp/guix/po/packages'
make[2]: Leaving directory `/localhome/rwurmus-tmp/guix/po/packages'
make[2]: Entering directory `/localhome/rwurmus-tmp/guix'
/usr/bin/mkdir -p `dirname "guix/gnu-maintenance.go"` ;                 \
unset GUILE_LOAD_COMPILED_PATH ;                                \
LC_ALL=C                                                        \
./pre-inst-env                                  \
/usr/bin/guild compile -L "." -L "."    \
  -Wformat -Wunbound-variable -Warity-mismatch                  \
  --target="x86_64-unknown-linux-gnu"                                           
\
  -o "guix/gnu-maintenance.go" "guix/gnu-maintenance.scm"
;;; note: source file ./guix/http-client.scm
;;;       newer than compiled 
/home/rwurmus/.cache/guile/ccache/2.0-LE-8-2.0/localhome/rwurmus-tmp/guix/guix/http-client.scm.go
Backtrace:
In system/base/compile.scm:
 216: 19 [read-and-compile #<input: guix/gnu-maintenance.scm 5> #:from ...]
 232: 18 [lp () #f #<module (#{ g114}#) ca1d80>]
 180: 17 [lp (#<procedure compile-tree-il (x e opts)>) (define-module # # ...) 
...]
In ice-9/boot-9.scm:
2320: 16 [save-module-excursion #<procedure e509f0 at 
language/scheme/compile-tree-il.scm:29:3 ()>]
In language/scheme/compile-tree-il.scm:
  31: 15 [#<procedure e509f0 at language/scheme/compile-tree-il.scm:29:3 ()>]
In ice-9/psyntax.scm:
1091: 14 [expand-top-sequence ((define-module # # # ...)) () ((top)) ...]
 976: 13 [scan ((define-module (guix gnu-maintenance) #:use-module ...)) () ...]
 270: 12 [scan ((#(syntax-object let # ...) (#) (# #) ...)) () ...]
In ice-9/eval.scm:
 411: 11 [eval # ()]
In ice-9/boot-9.scm:
2870: 10 [define-module* (guix gnu-maintenance) #:filename ...]
2845: 9 [resolve-imports (((web uri)) ((web client)) ((web response)) ...)]
2783: 8 [resolve-interface (guix http-client) #:select ...]
2708: 7 [#<procedure 9a7440 at ice-9/boot-9.scm:2696:4 (name #:optional 
autoload version #:key ensure)> # ...]
2981: 6 [try-module-autoload (guix http-client) #f]
2320: 5 [save-module-excursion #<procedure fb3510 at ice-9/boot-9.scm:2982:17 
()>]
3001: 4 [#<procedure fb3510 at ice-9/boot-9.scm:2982:17 ()>]
In unknown file:
   ?: 3 [primitive-load-path "guix/http-client" ...]
In ice-9/eval.scm:
 432: 2 [eval # ()]
In unknown file:
   ?: 1 [scm-error misc-error #f ...]
In ice-9/boot-9.scm:
 106: 0 [#<procedure bde140 at ice-9/boot-9.scm:97:6 (thrown-k . args)> 
misc-error ...]

ice-9/boot-9.scm:106:20: In procedure #<procedure bde140 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 
#<interface (web response) f9bd80>
make[2]: *** [guix/gnu-maintenance.go] Error 1
make[2]: Leaving directory `/localhome/rwurmus-tmp/guix'
make[1]: *** [all-recursive] Error 1
make[1]: Leaving directory `/localhome/rwurmus-tmp/guix'
make: *** [all] Error 2
~~~~~


That's odd because:

~~~~~
address@hidden:/localhome/rwurmus-tmp/guix] (631) $ guile
GNU Guile 2.0.9
Copyright (C) 1995-2013 Free Software Foundation, Inc.

Guile comes with ABSOLUTELY NO WARRANTY; for details type `,show w'.
This program is free software, and you are welcome to redistribute it
under certain conditions; type `,show c' for details.

Enter `,help' for help.
scheme@(guile-user)> ,module (web response)
scheme@(web response)> make-delimited-input-port
$1 = #<procedure make-delimited-input-port (port len keep-alive?)>
scheme@(web response)> 
~~~~~

The only difference from master is the applied patch.

~~ Ricardo