From e2ff126588e6d3224c7da9e8891f5aee80f41e1f Mon Sep 17 00:00:00 2001 From: Mathieu Othacehe Date: Tue, 29 Jun 2021 20:44:23 +0200 Subject: installer: Fix crash when deleting a free space partition. Fixes: . * gnu/installer/newt/partition.scm (run-disk-page): Fix the return value when removing a free space partition. --- gnu/installer/newt/partition.scm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'gnu/installer') 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 @@ (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 -- cgit v1.2.3