From 8cca59ee1234252f1c3fbd594fb552093be968d8 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Wed, 16 Jan 2019 23:08:20 +0100 Subject: installer: Fix manual partitioning. * gnu/installer/newt/partition.scm (run-partioning-page): When METHOD is 'manual, use 'filter-map' on DEVICES, not 'map', since 'disk-new' can return #f. --- gnu/installer/newt/partition.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/gnu/installer/newt/partition.scm b/gnu/installer/newt/partition.scm index c22e1c0290..d4c91edc66 100644 --- a/gnu/installer/newt/partition.scm +++ b/gnu/installer/newt/partition.scm @@ -745,7 +745,7 @@ by pressing the Exit button.~%~%"))) (run-disk-page (list disk) user-partitions #:guided? #t))) ((eq? method 'manual) - (let* ((disks (map disk-new devices)) + (let* ((disks (filter-map disk-new devices)) (user-partitions (append-map create-special-user-partitions (map disk-partitions disks))) -- cgit v1.2.3