bug#55337: display-download-progress: wrong type error

[Attila Lendvai]

while running a `make check-system` on a flaky network (unstable ipv4 tunnel on 
a native ipv6 connection).

the linu number points to:

(unless (zero? transferred) ...)

Backtrace:
          19 (apply-smob/0 #<thunk 7fdf07d6c2e0>)
In ice-9/boot-9.scm:
    724:2 18 (call-with-prompt _ _ #<procedure default-prompt-handler (k proc)>)
In ice-9/eval.scm:
    619:8 17 (_ #(#(#<directory (guile-user) 7fdf07d71c80>)))
In guix/ui.scm:
   2230:7 16 (run-guix . _)
  2193:10 15 (run-guix-command _ . _)
In ice-9/boot-9.scm:
  1752:10 14 (with-exception-handler _ _ #:unwind? _ #:unwind-for-type _)
In guix/status.scm:
    809:4 13 (call-with-status-report _ _)
In ice-9/boot-9.scm:
  1752:10 12 (with-exception-handler _ _ #:unwind? _ #:unwind-for-type _)
In guix/store.scm:
   658:37 11 (thunk)
   1320:8 10 (call-with-build-handler _ _)
   1320:8  9 (call-with-build-handler #<procedure 7fdf052eaba0 at 
guix/ui.scm:1169:2 (continue store things mode)> _)
In guix/scripts/build.scm:
   717:27  8 (_)
In guix/store.scm:
  1421:15  7 (_ #<store-connection 256.99 7fdf07d81140> _ _)
   759:14  6 (process-stderr _ _)
In unknown file:
           5 (display "@ substituter-succeeded 
/gnu/store/skdygnanqswb92sgzi7gbgc1smy8i5rq-docker-pack.tar.gz\n" #<output: 
string 7fdf07deb2a0>)
In guix/status.scm:
   732:16  4 (write! _ _ _)
    646:6  3 (_ (download-progress 
"/gnu/store/skdygnanqswb92sgzi7gbgc1smy8i5rq-docker-pack.tar.gz" 
"https://ci.guix.gnu.org/nar/skdygnanqswb92sgzi7gbgc1s@"; "substit…" …) …)
In guix/progress.scm:
   223:17  2 (display-download-progress "skdygnanqswb92sgzi7gbgc1s@" _ #:tty? _ 
#:start-time _ #:transferred _ #:log-port _)
In ice-9/boot-9.scm:
  1685:16  1 (raise-exception _ #:continuable? _)
  1685:16  0 (raise-exception _ #:continuable? _)

ice-9/boot-9.scm:1685:16: In procedure raise-exception:
In procedure =: Wrong type argument in position 1: #f


(random sidenote: i have also experienced "In procedure write_wait_fd: 
unimplemented" in other runs)

--
• attila lendvai
• PGP: 963F 5D5F 45C7 DFCD 0A39
--
“Discipline is helping a child solve a problem. Punishment is making a child 
suffer for having a problem. To raise problem solvers, focus on solution not 
retribution.”
        — L. R. Knost