Fix cut-and-paste error

This commit is contained in:
Tony Garnock-Jones 2011-12-02 14:33:50 -05:00
parent 665ca900fa
commit 07f5abfbff
1 changed files with 2 additions and 2 deletions

View File

@ -95,8 +95,8 @@
'not-truncated
(dns-message-recursion-desired r1)
'no-recursion-available
(if (and (eqv? (dns-message-authoritative r1) 'name-error)
(eqv? (dns-message-authoritative r2) 'name-error))
(if (and (eqv? (dns-message-response-code r1) 'name-error)
(eqv? (dns-message-response-code r2) 'name-error))
'name-error
'no-error)
(dns-message-questions r1)