From c4e87de70f09decdec4ed7fee3ba6a43751fdf44 Mon Sep 17 00:00:00 2001
From: Quentin <quentin@deuxfleurs.fr>
Date: Thu, 9 Jul 2020 16:22:41 +0200
Subject: [PATCH] We are now able to decode char*!

---
 examples/udp_server.scm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/examples/udp_server.scm b/examples/udp_server.scm
index 91a6014..bf32ef3 100644
--- a/examples/udp_server.scm
+++ b/examples/udp_server.scm
@@ -81,5 +81,8 @@
         (printf "~a~%" size)
         (printf "~a~%" port)
         (printf "~a~%" host)
-        (printf "~a~%" (ftype-ref string () buf))
+        (printf 
+          "~a~%" 
+          (char*->string
+            (make-ftype-pointer char buf)))
 ))))