~ruther/guix-local: guix system: Honor '--no-grub'.

6e1a7d17f4be26f6ec5bfca49c353218811bc71e — Ludovic Courtès 11 years ago a4d8c40

guix system: Honor '--no-grub'.

Reported by Alex Kost <alezost@gmail.com>
at <http://lists.gnu.org/archive/html/guix-devel/2015-02/msg00564.html>.

* guix/scripts/system.scm (%options) <no-grub>: Use 'alist-cons' instead
  of 'alist-delete'.

patch browse .tar.gz

1 files changed, 1 insertions(+), 1 deletions(-)

M guix/scripts/system.scm

M guix/scripts/system.scm => guix/scripts/system.scm +1 -1

@@ 446,7 446,7 @@ Build the operating system declared in FILE according to ACTION.\n"))
                                result)))
          (option '("no-grub") #f #f
                  (lambda (opt name arg result)
-                   (alist-delete 'install-grub? result)))
+                   (alist-cons 'install-grub? #f result)))
          (option '("full-boot") #f #f
                  (lambda (opt name arg result)
                    (alist-cons 'full-boot? #t result)))