bug#41237: guix deploy hangs when a file-system-device is set to a UUID

[Brice Waegeneire]

Hello Ludovic,

The same with “COLUMNS=200“:

--8<---------------cut here---------------start------------->8---
scheme@(guix-user) [1]> ,bt
In ice-9/boot-9.scm:
   2806:4  6 (save-module-excursion _)
  4351:12  5 (_)
In unknown file:
           4 (find #<procedure 7f9a930bd570 at 
gnu/build/file-systems.scm:606:4 (device)> ("/dev/sda" "/dev/sda1" 
"/dev/sda2" "/dev/sda3" "/dev/sdb" "/dev/sdb2" "/dev/sdb3"))
In gnu/system/uuid.scm:
    302:5  3 (uuid=? . _)
In unknown file:
While executing meta-command:
In procedure frame-local-ref: Argument 2 out of range: 0
scheme@(guix-user) [1]> ,locals
  Local variables:
  $1 = closure = #<procedure raise-exception (exn #:key continuable?)>
scheme@(guix-user) [1]> ,up
In ice-9/top-repl.scm:
    37:24  1 (_ _)
scheme@(guix-user) [1]> ,locals
  Local variables:
  $2 = arg = signal
  $3 = arg = #f
  $4 = arg = ()
  $5 = pair = (() (2))
  $6 = pair = ("User interrupt" () (2))
  $7 = pair = (#f "User interrupt" () (2))
scheme@(guix-user) [1]> ,up
While executing meta-command:
In procedure frame-local-ref: Argument 2 out of range: 0
scheme@(guix-user) [1]> ,locals
  No local variables.
scheme@(guix-user) [1]> ,up
In gnu/system/uuid.scm:
    302:5  3 (uuid=? . _)
scheme@(guix-user) [1]> ,locals
  Local variables:
  $8 = closure = #<procedure uuid=? expr>
  $9 = w = #vu8(185 176 222 181)
While executing meta-command:
In procedure frame-local-ref: Argument 2 out of range: 3
scheme@(guix-user) [1]> ,up
           4 (find #<procedure 7f9a930bd570 at 
gnu/build/file-systems.scm:606:4 (device)> ("/dev/sda" "/dev/sda1" 
"/dev/sda2" "/dev/sda3" "/dev/sdb" "/dev/sdb2" "/dev/sdb3"))
scheme@(guix-user) [1]> ,locals
  No local variables.
scheme@(guix-user) [1]> ,up
In ice-9/boot-9.scm:
  4351:12  5 (_)
scheme@(guix-user) [1]> ,locals
  No local variables.
scheme@(guix-user) [1]> ,up
In ice-9/boot-9.scm:
   2806:4  6 (save-module-excursion _)
scheme@(guix-user) [1]> ,locals
  Local variables:
  thunk = #<unspecified>
  $10 = obj = #<variable 7f9a930b5770 value: #f>
  $11 = outer-module = #f
  $12 = obj = #<variable 7f9a930b5760 value: #<directory (guix-user) 
7f9a9505f6e0>>
  $13 = box = #<variable 7f9a97743ef0 value: #<procedure 
set-current-module (_)>>
  closure = #<unspecified>
scheme@(guix-user) [1]> ,up
Already at outermost frame.
scheme@(guix-user) [1]>
--8<---------------cut here---------------end--------------->8---

- Brice