bug#26815: [PATCH 1/3] vm: Add support for arbitrary partition flags.

[Ludovic Courtès]

Hi Marius!

Marius Bakke <address@hidden> skribis:

> * gnu/build/vm.scm (<partition>): Change BOOTABLE? to FLAGS.
> (initialize-partition-table): Pass each flag to parted.
> (initialize-hard-disk): Search for root partition by "boot" flag.
> * gnu/system/vm.scm (qemu-image): Adjust partitions accordingly.

[...]

> +           (apply append (map (lambda (flag)
> +                                (cons* "set" (number->string index)
> +                                       (symbol->string flag)
> +                                       "on" '()))
> +                              (partition-flags part)))))

Use ‘append-map’ instead of (apply append (map …)).

OK with this change, thanks!

Ludo’.