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

Fix broken call to map in lookup-optional-args.

This commit is contained in:
mainzelm 2003-02-19 17:37:35 +00:00
parent da98c4b78c
commit 8111eddf82
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scheme/lib/dns.scm
View File

@ -1182,7 +1182,7 @@
(cond (cond
((address32? nameserver) nameserver) ((address32? nameserver) nameserver)
((ip-string? nameserver) (ip-string->address32 nameserver)) ((ip-string? nameserver) (ip-string->address32 nameserver))
(else (map (dns-lookup-name nameserver (dns-find-nameserver-list)))))) (else (map dns-lookup-name (dns-find-nameserver-list)))))
(car args)) (car args))
(if (null? (cdr args)) (if (null? (cdr args))
#t #t