From 0e9cd203c0814827017e345086d1352daf3f9a34 Mon Sep 17 00:00:00 2001
From: crc <crc@noemail.net>
Date: Mon, 11 Apr 2022 16:22:43 +0000
Subject: [PATCH] update socket-server example

FossilOrigin-Name: eff70d440e8ebc4a9c9ff895f4a01219a05b4dda4aa11301baa3536ddebbc641
---
 example/socket-server.retro | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/example/socket-server.retro b/example/socket-server.retro
index f04e3b5..5ae4173 100644
--- a/example/socket-server.retro
+++ b/example/socket-server.retro
@@ -16,12 +16,12 @@ Prepare to listen for connections.
 #3 @Sock socket:listen drop-pair
 ~~~
 
-Serve the user some data. This will repeat 5 times, then end.
+Serve the user some data.
 
 ~~~
-#5 [ @Sock socket:accept (discard_error_code: drop )
+[ @Sock socket:accept (discard_error_code: drop )
      'Hello_from_RETRO\n s:format swap [ socket:send drop-pair ] sip socket:close
-   ] times
+   ] forever
 ~~~
 
 Clean up.