+ removed conditions for invalid type and class
+ querytype -> query-type
This commit is contained in:
parent
3943e5da49
commit
0c0c27dcb5
|
@ -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?)
|
||||
|
|
Loading…
Reference in New Issue