ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 07:26:13 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

installer: Fix crash when deleting a free space partition.

Browse source 
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
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
gnu/installer/newt/partition.scm
View file

@ -643,8 +643,10 @@ (define (hotkey-action key listbox-item)
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