ctcp? ( object -- ? )

Vocabulary

irc.messages

Inputs and outputs

object	an object
?	a boolean

Word description

Tests if the object is an instance of the ctcp class.

Definition

USING: accessors combinators.short-circuit kernel math sequences
;

IN: irc.messages

: ctcp? ( object -- ? )
    dup privmsg? [
        trailing>>
        { [ length 1 > ] [ first 1 = ] [ last 1 = ] } 1&&
    ] [ drop f ] if ;