From 54754efc91e4862f5a904d53a82fcc59e19646a2 Mon Sep 17 00:00:00 2001 From: Mathieu Othacehe Date: Wed, 5 Dec 2018 17:48:36 +0900 Subject: 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. --- gnu/installer/newt/keymap.scm | 2 +- gnu/installer/newt/network.scm | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) (limited to 'gnu') 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 -- cgit v1.2.3