me
/
guix
Archived
1
0
Fork 0
Code

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.
master
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 @@ edit it."
default-result)))) default-result))))
((partition? item) ((partition? item)
(if (freespace-partition? item) (if (freespace-partition? item)
(run-error-page (G_ "You cannot delete a free space area.") (begin
(G_ "Delete partition")) (run-error-page (G_ "You cannot delete a free space area.")
(G_ "Delete partition"))
default-result)
(let* ((disk (partition-disk item)) (let* ((disk (partition-disk item))
(number-str (partition-print-number item)) (number-str (partition-print-number item))
(info-text (info-text