|
From: | Ludovic Courtès |
Subject: | bug#26815: [PATCH 1/3] vm: Add support for arbitrary partition flags. |
Date: | Mon, 08 May 2017 16:43:09 +0200 |
User-agent: | Gnus/5.13 (Gnus v5.13) Emacs/25.2 (gnu/linux) |
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’.
[Prev in Thread] | Current Thread | [Next in Thread] |