bug#39969: Inconsistent specification of a file-system's device

[Damien Cassou]

Hi,

the manual says that file system labels should be specified with the
file-system-label procedure like this:

    (file-system
      (mount-point "/home")
      (type "ext4")
      (device (file-system-label "my-home")))


Nevertheless, system-qemu-image seems to expect only strings:

    (define* (system-qemu-image os
                                #:key
                                (file-system-type "ext4")
                                (disk-image-size (* 900 (expt 2 20))))
      (define file-systems-to-keep
        ;; Keep only file systems other than root and not normally bound to real
        ;; devices.
        (remove (lambda (fs)
                  (let ((target (file-system-mount-point fs))
                        (source (file-system-device fs)))
                    (or (string=? target "/")
                        (string-prefix? "/dev/" source))))
                (operating-system-file-systems os)))


The code above stores the result of file-system-device to the source
variable and then expects it to be a string.

-- 
Damien Cassou

"Success is the ability to go from one failure to another without
losing enthusiasm." --Winston Churchill