split-at-first ( seq separators -- before after )

Vocabulary

irc.messages.parser.private

Inputs

seq	an object
separators	an object

Outputs

before	an object
after	an object

Definition

USING: kernel sequences ;

IN: irc.messages.parser.private

: split-at-first ( seq separators -- before after )
    dupd [ member? ] curry find [ cut rest ] [ swap ] if ;