diff options
| author | Mathieu Othacehe <m.othacehe@gmail.com> | 2018-12-05 17:48:36 +0900 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2019-01-17 14:04:24 +0100 |
| commit | 54754efc91e4862f5a904d53a82fcc59e19646a2 (patch) | |
| tree | 5a3b34b4f243774d8fb446718c755729ea1c15ad | |
| parent | 35e99a23b5819c888a80279d048d4915f0fcf78b (diff) | |
| download | patches-54754efc91e4862f5a904d53a82fcc59e19646a2.tar patches-54754efc91e4862f5a904d53a82fcc59e19646a2.tar.gz | |
installer: Fix compute calls.
* gnu/installer/newt/keymap.scm (run-keymap-page): Add missing argument to
compute procedure.
* gnu/installer/newt/network.scm (run-network-page): Ditto.
| -rw-r--r-- | gnu/installer/newt/keymap.scm | 2 | ||||
| -rw-r--r-- | gnu/installer/newt/network.scm | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/gnu/installer/newt/keymap.scm b/gnu/installer/newt/keymap.scm index 0c38a79e19..4bdae51340 100644 --- a/gnu/installer/newt/keymap.scm +++ b/gnu/installer/newt/keymap.scm @@ -81,7 +81,7 @@ names of the selected keyboard layout and variant." (installer-step (id 'variant) (compute - (lambda (result) + (lambda (result _) (let ((variants (x11-keymap-layout-variants (result-step result 'layout)))) (run-variant-page variants diff --git a/gnu/installer/newt/network.scm b/gnu/installer/newt/network.scm index 45989ac2ac..4912959147 100644 --- a/gnu/installer/newt/network.scm +++ b/gnu/installer/newt/network.scm @@ -131,7 +131,7 @@ Internet." (installer-step (id 'power-technology) (compute - (lambda (result) + (lambda (result _) (let ((technology (result-step result 'select-technology))) (connman-enable-technology technology) (wait-technology-powered technology))))) @@ -140,7 +140,7 @@ Internet." (installer-step (id 'connect-service) (compute - (lambda (result) + (lambda (result _) (let* ((technology (result-step result 'select-technology)) (type (technology-type technology))) (cond |