mirror of
https://git.lain.church/emil/moontalk.git
synced 2025-05-22 11:26:44 +00:00
10 lines
247 B
Forth
10 lines
247 B
Forth
|
|
: server-message-unsanitized ( msg-str user-n -- )
|
|
sendbuffer-reset
|
|
cr >r
|
|
s" Server: " sendbuffer-append
|
|
sendbuffer-append
|
|
s\" \n" sendbuffer-append
|
|
r> 1- connections.at dup (assert-connected)
|
|
(send-sendbuffer) ;
|