split-double-dash ( seq -- seqs )

Vocabulary

modern

Inputs

seq

an object

Outputs

seqs

an object

Definition

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

IN: modern

: split-double-dash ( seq -- seqs )
    dup [ { [ "--" sequence= ] } 1&& ] split-when dup length 1 >
    [ nip ] [ drop ] if ;