diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2015-02-24 23:42:32 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2015-02-24 23:43:03 +0100 |
| commit | 6e1a7d17f4be26f6ec5bfca49c353218811bc71e (patch) | |
| tree | b786887495ac6c02596fe23bca15238ee6df0ea9 | |
| parent | a4d8c40f7d3d5002a307b80cfe516474ea10d19f (diff) | |
| download | patches-6e1a7d17f4be26f6ec5bfca49c353218811bc71e.tar patches-6e1a7d17f4be26f6ec5bfca49c353218811bc71e.tar.gz | |
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'.
| -rw-r--r-- | 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 3eea872fe8..b15bb8bb0d 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))) |