matching-section-delimiter ( string -- string' )

Vocabulary

modern.slices

Inputs

string

an object

Outputs

string'

an object

Definition

USING: kernel sequences ;

IN: modern.slices

: matching-section-delimiter ( string -- string' )
    dup ":" tail?
    [ rest but-last ";" ">" surround ] [ rest ">" append ] if ;