diff options
| author | Josselin Poiret <dev@jpoiret.xyz> | 2022-01-15 14:50:04 +0100 |
|---|---|---|
| committer | Mathieu Othacehe <othacehe@gnu.org> | 2022-01-17 08:44:40 +0100 |
| commit | dd5177a377e8ad1fb5412654201515c0ba950fb1 (patch) | |
| tree | 74cdd8214dba3a3a39c27cebefe874f5d4f272c2 | |
| parent | e91ddc728c2aa4d6c3b823f63089060b6c064267 (diff) | |
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.scm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gnu/installer/newt/page.scm b/gnu/installer/newt/page.scm index d9901c33a14..9c684a3899f 100644 --- a/gnu/installer/newt/page.scm +++ b/gnu/installer/newt/page.scm | |||
| @@ -812,6 +812,7 @@ ITEMS when 'Ok' is pressed." | |||
| 812 | (destroy-form-and-pop form)))) | 812 | (destroy-form-and-pop form)))) |
| 813 | 813 | ||
| 814 | (if (and (eq? exit-reason 'exit-component) | 814 | (if (and (eq? exit-reason 'exit-component) |
| 815 | edit-button | ||
| 815 | (components=? argument edit-button)) | 816 | (components=? argument edit-button)) |
| 816 | (loop) ;recurse in tail position | 817 | (loop) ;recurse in tail position |
| 817 | result))))) | 818 | result))))) |