scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix two arity errors.

This commit is contained in:
sperber 2003-01-21 13:05:11 +00:00
parent 30062d25df
commit 2994678584
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scheme/lib/netrc.scm
View File

@ -254,9 +254,9 @@
(if (netrc? netrc-record) (if (netrc? netrc-record)
(begin (begin
(if (eq? (netrc-default-login netrc-record) #f) (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) (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) netrc-record)
(let ((default-netrc-record (local-default-netrc-record))) (let ((default-netrc-record (local-default-netrc-record)))
(set-netrc-file-name! default-netrc-record file-name) (set-netrc-file-name! default-netrc-record file-name)