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.
This commit is contained in:
parent
35e99a23b5
commit
54754efc91
@ -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
|
||||
|
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user