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

4
scheme/lib/dns.scm
View File

@ -1175,14 +1175,14 @@
;; (dns-lookup-name nameserver) is called. ;; (dns-lookup-name nameserver) is called.
;; use-cache? defaults to #t ;; use-cache? defaults to #t
(define (lookup-optional-args args) (define (lookup-optional-args args)
(if (null? args) (if (null? args)
(values (map ip-string->address32 (dns-find-nameserver-list)) #t) (values (map ip-string->address32 (dns-find-nameserver-list)) #t)
(values (values
(map (lambda (nameserver) (map (lambda (nameserver)
(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