From af43060e1c93d5a4050a4730fecb0803753c8535 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Tue, 11 Apr 2023 11:32:19 -0500
Subject: Update

---
 mailbox.scm | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

(limited to 'mailbox.scm')

diff --git a/mailbox.scm b/mailbox.scm
index 948804c..82eaaad 100644
--- a/mailbox.scm
+++ b/mailbox.scm
@@ -1,6 +1,7 @@
 ;; server bit
 
-(import udp)
+(import udp
+        utf8)
 
 (define host "localhost")
 (define port 42069)
@@ -9,11 +10,11 @@
   (define s (udp-open-socket))
   (udp-bind! s #f port)
   (let loop ((s s))
-    (receive (len str) (udp-recv s 512)
+    (receive (len str host port) (udp-recvfrom s 512)
       (when (= len 0)
         (loop s))
-      (display str)
-      (newline)
+      (print host ":" port "(" len ")\t" str)
+      (udp-sendto s host port (string-append "received: " str))
       (loop s))))
 
 (main)
-- 
cgit 1.4.1-21-gabe81