From 834f3f8282500b220250ea704948d88f35616c53 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Wed, 1 Jun 2022 20:37:23 +0200
Subject: [PATCH] Cleanup.

---
 dns/types/header.scm   | 2 +-
 dns/types/question.scm | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/dns/types/header.scm b/dns/types/header.scm
index 9784c10..8f4c3cc 100644
--- a/dns/types/header.scm
+++ b/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))
diff --git a/dns/types/question.scm b/dns/types/question.scm
index b41576d..115d108 100644
--- a/dns/types/question.scm
+++ b/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))))))
 
-- 
GitLab