From 5469563cb7cecb8fd133ce1b9977452e247c90cc Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Mon, 6 Jun 2022 23:23:39 +0200
Subject: [PATCH] Repair sample-client after ->bytes rewrites.
---
sample-client.scm | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/sample-client.scm b/sample-client.scm
index 1362951..8a4e203 100755
--- a/sample-client.scm
+++ b/sample-client.scm
@@ -24,7 +24,9 @@
(define (run sock msg)
(define resp (make-bytevector 512))
- (send sock (dns-message->bytes msg))
+ ;; TODO pack bytevector here
+ (send sock (call-with-values (lambda () ((dns-message->bytes msg) (make-bytevector 100) 0))
+ (lambda (_ bv ptr) bv)))
(recv! sock resp)
(call-with-values (lambda () ((bytes->dns-message resp) 0))
(lambda (resp _) resp)))
--
GitLab