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.
This commit is contained in:
Ludovic Courtès 2019-01-16 23:08:20 +01:00
parent 85caf5f323
commit 8cca59ee12
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 1 additions and 1 deletions

View File

@ -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)))