Fix forgotten renamings.
This commit is contained in:
parent
b2c4e59cb8
commit
1ac2cc0819
|
@ -512,7 +512,7 @@
|
|||
|
||||
;; flags
|
||||
(define-record-type flags :flags
|
||||
(make-flags querytype opcode authoritative? truncated? recursion-desired?
|
||||
(make-flags query-type opcode authoritative? truncated? recursion-desired?
|
||||
recursion-available? zero response-code)
|
||||
flags?
|
||||
(query-type flags-query-type)
|
||||
|
@ -1425,7 +1425,7 @@
|
|||
(d 4 "additional-count " (header-additional-count dns-msg))))
|
||||
((flags? dns-msg)
|
||||
(begin
|
||||
(d 5 "querytype" (flags-querytype dns-msg))
|
||||
(d 5 "querytype" (flags-query-type dns-msg))
|
||||
(d 5 "opcode" (flags-opcode dns-msg))
|
||||
(d 5 "authoritative?" (flags-authoritative? dns-msg))
|
||||
(d 5 "truncated?" (flags-truncated? dns-msg))
|
||||
|
|
Loading…
Reference in New Issue