bug#28445: match-error in 'device-sexp->device' while building system

[Mark H Weaver]

I wrote:
> For now, to allow me to apply security updates to my system, I
> reverted the following commits:

To be clear, I reverted these commits only on a private branch in my
local git repo.

     Mark


>   96da5d629 system: Add gexp compiler for <operating-system>.
>   45bba4751 store: 'run-with-store' has a #:target parameter.
>   fc2de6ce1 guix system: Pretty-print device UUIDs.
>   7940188eb system: Fix typo in 'read-boot-parameters'.
>   5f7fe1c57 vm: Generate a UUID to identify the root file system.
>   fd3b4b985 vm: Allow users to specify a UUID for the root partition.
>   ce094b466 uuid: 'uuid' macro supports more UUID types.
>   075681d35 system: Serialize the UUID type in the "parameters" file.
>   9b336338c system: Introduce a disjoint UUID type.
>   d1ff5f9db services: file-system: Use 'file-system->spec'.
>   47cef4eca file-systems: Introduce (gnu system uuid).
>   943e1b975 services: base: Import the closure of (gnu build file-systems).
>
> and this allows me to build a new system.