moontalk/server/eventloop-server-experiment/patches/unsanitized-message.4th

 
: 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) ;