aboutsummaryrefslogtreecommitdiff
path: root/gnu/installer
diff options
context:
space:
mode:
authorMathieu Othacehe <othacehe@gnu.org>2021-06-29 20:44:23 +0200
committerMathieu Othacehe <othacehe@gnu.org>2021-06-29 20:44:23 +0200
commite2ff126588e6d3224c7da9e8891f5aee80f41e1f (patch)
treecc3e5e0ded040a6dd0690511d548826187eecfba /gnu/installer
parent5ef96ecaaeeabd5500e406f0103ca52ec079fdb9 (diff)
downloadguix-e2ff126588e6d3224c7da9e8891f5aee80f41e1f.tar
guix-e2ff126588e6d3224c7da9e8891f5aee80f41e1f.tar.gz
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.
Diffstat (limited to 'gnu/installer')
-rw-r--r--gnu/installer/newt/partition.scm6
1 files changed, 4 insertions, 2 deletions
diff --git a/gnu/installer/newt/partition.scm b/gnu/installer/newt/partition.scm
index 1c0444b67f..fe30953a41 100644
--- a/gnu/installer/newt/partition.scm
+++ b/gnu/installer/newt/partition.scm
@@ -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