warn-name-changed ( old new -- )

Vocabulary

managed-server.chat

Inputs

old	an object
new	an object

Outputs

None

Definition

USING: combinators.smart kernel managed-server ;

IN: managed-server.chat

: warn-name-changed ( old new -- )
    [
        [ line-beginning "``" ] 2dip
        [ "'' is now known as ``" ] dip "''"
    ] "" append-outputs-as send-everyone ;