with-irc ( ..a irc-client quot: ( ..a -- ..b ) -- ..b )

Vocabulary

irc.client.base

Inputs

irc-client	an object
quot	a quotation with stack effect ( ..a -- ..b )

Outputs

None

Definition

USING: kernel namespaces ;

IN: irc.client.base

: with-irc ( ..a irc-client quot: ( ..a -- ..b ) -- ..b )
    \ current-irc-client swap with-variable ; inline