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 ;