installer: Fix crash when deleting a free space partition.

Fixes: <https://issues.guix.gnu.org/49126>.

* gnu/installer/newt/partition.scm (run-disk-page): Fix the return value when
removing a free space partition.
This commit is contained in:
Mathieu Othacehe 2021-06-29 20:44:23 +02:00
parent 5ef96ecaae
commit e2ff126588
No known key found for this signature in database
GPG Key ID: 8354763531769CA6

@ -643,8 +643,10 @@ edit it."
default-result))))
((partition? item)
(if (freespace-partition? item)
(run-error-page (G_ "You cannot delete a free space area.")
(G_ "Delete partition"))
(begin
(run-error-page (G_ "You cannot delete a free space area.")
(G_ "Delete partition"))
default-result)
(let* ((disk (partition-disk item))
(number-str (partition-print-number item))
(info-text