branch master updated: installer: Fix crash when deleting a free space partition.

[guix-commits]

This is an automated email from the git hooks/post-receive script.

mothacehe pushed a commit to branch master
in repository guix.

The following commit(s) were added to refs/heads/master by this push:
     new e2ff126  installer: Fix crash when deleting a free space partition.
e2ff126 is described below

commit e2ff126588e6d3224c7da9e8891f5aee80f41e1f
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Tue Jun 29 20:44:23 2021 +0200

    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.
---
 gnu/installer/newt/partition.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/gnu/installer/newt/partition.scm b/gnu/installer/newt/partition.scm
index 1c0444b..fe30953 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