10 lines
247 B
Plaintext
10 lines
247 B
Plaintext
|
|
||
|
|
: 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) ;
|