From 0c0c27dcb58c51a08d993e9a1b2aa0b490093cbb Mon Sep 17 00:00:00 2001 From: mainzelm Date: Tue, 21 Jan 2003 14:33:54 +0000 Subject: [PATCH] + removed conditions for invalid type and class + querytype -> query-type --- scheme/lib/dns.scm | 17 +---------------- 1 file changed, 1 insertion(+), 16 deletions(-) diff --git a/scheme/lib/dns.scm b/scheme/lib/dns.scm index 91543dc..3ef0af2 100644 --- a/scheme/lib/dns.scm +++ b/scheme/lib/dns.scm @@ -91,12 +91,6 @@ (define-condition-type 'dns-error '(error)) (define dns-error? (condition-predicate 'dns-error)) -(define-condition-type 'invalid-type '(dns-error)) -(define invalid-type? (condition-predicate 'invalid-type)) - -(define-condition-type 'invalid-class '(dns-error)) -(define invalid-class? (condition-predicate 'invalid-class)) - (define-condition-type 'parse-error '(dns-error)) (define parse-error? (condition-predicate 'parse)) @@ -145,10 +139,6 @@ (string-append "dns-error: " (case condition - ((invalid-type) - "make-octet-question: invalid DNS query type") - ((invalid-class) - "make-octet-question: invalid DNS query class") ((parse-error) "parse: error parsing server message") ((unexpected-eof-from-server) @@ -460,11 +450,6 @@ ;; makes a question (name, type, class) (define (make-octet-question name type class) - (if (not (message-type? type)) - (dns-error 'invalid-type type)) - (if (not (message-class? class)) - (dns-error 'invalid-class)) - (let* ((qname (name->octets name)) (qtype (number->octet-pair (message-type-number type))) (qclass (number->octet-pair (message-class-number class)))) @@ -530,7 +515,7 @@ (make-flags querytype opcode authoritative? truncated? recursion-desired? recursion-available? zero response-code) flags? - (querytype flags-querytype) + (query-type flags-query-type) (opcode flags-opcode) (authoritative? flags-authoritative?) (truncated? flags-truncated?)