Fix forgotten renamings.

This commit is contained in:
mainzelm 2003-01-21 16:09:41 +00:00
parent b2c4e59cb8
commit 1ac2cc0819
1 changed files with 2 additions and 2 deletions

View File

@ -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))