Miroirs/retroforth
1
0
Fork 0
mirror of https://git.sr.ht/~crc_/retroforth synced 2024-11-16 19:48:56 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

update socket-server example

Browse source 
FossilOrigin-Name: eff70d440e8ebc4a9c9ff895f4a01219a05b4dda4aa11301baa3536ddebbc641
This commit is contained in:
crc 2022-04-11 16:22:43 +00:00
parent c2e48a2930
commit 0e9cd203c0
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
example/socket-server.retro
View file

@ -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.