Fix two arity errors.
This commit is contained in:
parent
30062d25df
commit
2994678584
|
@ -254,9 +254,9 @@
|
|||
(if (netrc? netrc-record)
|
||||
(begin
|
||||
(if (eq? (netrc-default-login netrc-record) #f)
|
||||
(set-netrc-default-login! (local-default-login)))
|
||||
(set-netrc-default-login! netrc-record (local-default-login)))
|
||||
(if (eq? (netrc-default-password netrc-record) #f)
|
||||
(set-netrc-default-password! (local-default-password)))
|
||||
(set-netrc-default-password! netrc-record (local-default-password)))
|
||||
netrc-record)
|
||||
(let ((default-netrc-record (local-default-netrc-record)))
|
||||
(set-netrc-file-name! default-netrc-record file-name)
|
||||
|
|
Loading…
Reference in New Issue