[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
05/05: guix system: Honor '--no-grub'.
From: |
Ludovic Courtès |
Subject: |
05/05: guix system: Honor '--no-grub'. |
Date: |
Tue, 24 Feb 2015 22:43:14 +0000 |
civodul pushed a commit to branch master
in repository guix.
commit 6e1a7d17f4be26f6ec5bfca49c353218811bc71e
Author: Ludovic Courtès <address@hidden>
Date: Tue Feb 24 23:42:32 2015 +0100
guix system: Honor '--no-grub'.
Reported by Alex Kost <address@hidden>
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'.
---
guix/scripts/system.scm | 2 +-
1 files changed, 1 insertions(+), 1 deletions(-)
diff --git a/guix/scripts/system.scm b/guix/scripts/system.scm
index 3eea872..b15bb8b 100644
--- a/guix/scripts/system.scm
+++ b/guix/scripts/system.scm
@@ -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)))