* gnu/installer/newt/page.scm (run-input-page): Remove component argument that
is not longer passed to the procedure passed to 'add-component-callback',
(run-listbox-selection-page): ditto.
* gnu/installer/newt/user.scm (run-user-add-page): Ditto,
(run-user-add-page): ditto.
(add-component-callback
input-visible-cb
- (lambda (component)
+ (lambda ()
(set-entry-flags input-entry
FLAG-PASSWORD
FLAG-ROLE-TOGGLE)))
;; do nothing.
(add-component-callback
listbox
- (lambda (component)
+ (lambda ()
(let* ((current-key (current-listbox-entry listbox))
(listbox-keys (map car keys))
(last-key (last-listbox-key))
(add-component-callback
entry-name
- (lambda (component)
+ (lambda ()
(set-entry-text entry-home-directory
(string-append "/home/" (entry-value entry-name)))
(add-component-callback
password-visible-cb
- (lambda (component)
+ (lambda ()
(set-entry-flags entry-password
FLAG-PASSWORD
FLAG-ROLE-TOGGLE)))