We are now able to decode char*!

2020-07-09 16:22:41 +02:00 · 2020-07-09 16:22:41 +02:00 · c4e87de70f
parent 3e49fc158b
commit c4e87de70f
1 changed files with 4 additions and 1 deletions
--- 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)))
 ))))