Cleanup.

dns/types/header.scm

@@ -58,7 +58,7 @@
     (logand 7 (ash u16 -4))             ; z
     (logand #xF u16)))                  ; rcode
 
-(define* (dns-header->bytes msg optional: (bv (make-bytevector 12)))
+(define* (dns-header->bytes msg)
   (do
       (u16! (or (id msg) 0))
       (u16! (encode-dns-header-flags msg))

dns/types/question.scm

@@ -20,7 +20,7 @@
 
 
 (define-record-type dns-question
-  (fields (name type: string?) ; string
+  (fields (name type: string?)
           (type type: (or u16? (assq (@ (dns enum) rr-types))))
           (class default: 'IN type: (or u16? (assq (@ (dns enum) class-types))))))