Fix cut-and-paste error
This commit is contained in:
parent
665ca900fa
commit
07f5abfbff
|
@ -95,8 +95,8 @@
|
||||||
'not-truncated
|
'not-truncated
|
||||||
(dns-message-recursion-desired r1)
|
(dns-message-recursion-desired r1)
|
||||||
'no-recursion-available
|
'no-recursion-available
|
||||||
(if (and (eqv? (dns-message-authoritative r1) 'name-error)
|
(if (and (eqv? (dns-message-response-code r1) 'name-error)
|
||||||
(eqv? (dns-message-authoritative r2) 'name-error))
|
(eqv? (dns-message-response-code r2) 'name-error))
|
||||||
'name-error
|
'name-error
|
||||||
'no-error)
|
'no-error)
|
||||||
(dns-message-questions r1)
|
(dns-message-questions r1)
|
||||||
|
|
Loading…
Reference in New Issue