aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJosselin Poiret <dev@jpoiret.xyz>2022-01-15 14:50:04 +0100
committerMathieu Othacehe <othacehe@gnu.org>2022-02-02 16:46:43 +0100
commitdad9a1c0b2fe4bfeb271e229ddfefb3d894d314d (patch)
tree118d5b1a1789deffd218a65b8008fdbf5d3a0991
parent0a74509a696671580c8a7dc768d26f414748bab5 (diff)
downloadguix-dad9a1c0b2fe4bfeb271e229ddfefb3d894d314d.tar
guix-dad9a1c0b2fe4bfeb271e229ddfefb3d894d314d.tar.gz
installer: Fix run-file-textbox-page when edit-button is #f.
* gnu/installer/newt/page.scm (run-file-textbox-page): Check if edit-button is #f. Signed-off-by: Mathieu Othacehe <othacehe@gnu.org>
-rw-r--r--gnu/installer/newt/page.scm1
1 files changed, 1 insertions, 0 deletions
diff --git a/gnu/installer/newt/page.scm b/gnu/installer/newt/page.scm
index d9901c33a1..9c684a3899 100644
--- a/gnu/installer/newt/page.scm
+++ b/gnu/installer/newt/page.scm
@@ -812,6 +812,7 @@ ITEMS when 'Ok' is pressed."
(destroy-form-and-pop form))))
(if (and (eq? exit-reason 'exit-component)
+ edit-button
(components=? argument edit-button))
(loop) ;recurse in tail position
result)))))