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/network.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'gnu/installer/newt/network.scm') 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 @@ (define network-steps (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 @@ (define network-steps (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