From 54eb862b4a4aa85def9588120a67b6ad4a194aae Mon Sep 17 00:00:00 2001 From: mainzelm Date: Mon, 20 Jan 2003 14:20:53 +0000 Subject: [PATCH] + don't output anything in DNS-LOOKUP + typo fix in pretty-print-dns-message --- scheme/lib/dns.scm | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/scheme/lib/dns.scm b/scheme/lib/dns.scm index decc42b..91543dc 100644 --- a/scheme/lib/dns.scm +++ b/scheme/lib/dns.scm @@ -1271,10 +1271,6 @@ (check-answer (lambda (dns-msg) #t)) (dns-msg (dns-get-information question use-cache? protocol nameservers check-answer)) (answers (message-answers (dns-message-reply dns-msg)))) - (if (not (null? answers)) - (for-each (lambda (x) (show-dns-message x)(newline)) answers) - ;;; TODO remove display - (display "no answers received - but resolved information in other sections.\n")) dns-msg)) @@ -1400,7 +1396,7 @@ (display ": ") (display s2) (newline))))) - (with-current-output-port + (with-current-output-port* (if (null? maybe-port) (current-output-port) (car maybe-port))