diff options
| author | Mathieu Othacehe <othacehe@gnu.org> | 2021-01-12 16:26:07 +0100 |
|---|---|---|
| committer | Mathieu Othacehe <othacehe@gnu.org> | 2021-01-12 16:40:27 +0100 |
| commit | bb4e67415eb6d9871ee1b50b0a01e08c19f4809a (patch) | |
| tree | 11b6f0c7386119f69f387ed090c9d13e90b9c3c4 /gnu/installer.scm | |
| parent | 55157c90711662c24c7627189020e3a5aeafa2ba (diff) | |
installer: Fix crash in parameters menu.
Fixes: <https://issues.guix.gnu.org/45378>.
* gnu/installer/newt/keymap.scm (run-layout-page): Return false when
"Continue" button is pressed.
(run-keymap-page): Do not try to compute variants if layout is false. Also do
not try to format the result if layout is false.
* gnu/installer.scm (compute-keymap-step): Do not apply keymap if
"run-keymap-page" returns false.
Diffstat (limited to 'gnu/installer.scm')
| -rw-r--r-- | gnu/installer.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gnu/installer.scm b/gnu/installer.scm index 7863edbb67d..d2be4b34f91 100644 --- a/gnu/installer.scm +++ b/gnu/installer.scm | |||
| @@ -187,7 +187,7 @@ selected keymap." | |||
| 187 | (lambda (models layouts) | 187 | (lambda (models layouts) |
| 188 | ((installer-keymap-page current-installer) | 188 | ((installer-keymap-page current-installer) |
| 189 | layouts '#$context))))) | 189 | layouts '#$context))))) |
| 190 | (#$apply-keymap result) | 190 | (and result (#$apply-keymap result)) |
| 191 | result))) | 191 | result))) |
| 192 | 192 | ||
| 193 | (define (installer-steps) | 193 | (define (installer-steps) |