send-client ( seq username -- )

Vocabulary

managed-server

Inputs

seq	an object
username	an object

Outputs

None

Definition

USING: assocs kernel managed-server.private ;

IN: managed-server

: send-client ( seq username -- )
    clients ?at [ no-such-client ] [ (send-client) ] if ;