From 8111eddf82c9ea5acfbbf7c10ff44ec958078677 Mon Sep 17 00:00:00 2001 From: mainzelm Date: Wed, 19 Feb 2003 17:37:35 +0000 Subject: [PATCH] Fix broken call to map in lookup-optional-args. --- scheme/lib/dns.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/scheme/lib/dns.scm b/scheme/lib/dns.scm index b8695ea..36e9e1b 100644 --- a/scheme/lib/dns.scm +++ b/scheme/lib/dns.scm @@ -1175,14 +1175,14 @@ ;; (dns-lookup-name nameserver) is called. ;; use-cache? defaults to #t (define (lookup-optional-args args) - (if (null? args) + (if (null? args) (values (map ip-string->address32 (dns-find-nameserver-list)) #t) (values (map (lambda (nameserver) (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