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