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

View File

@ -1182,7 +1182,7 @@
(cond
((address32? nameserver) 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))
(if (null? (cdr args))
#t