matching-paren ( str -- to )

Vocabulary

xmode.marker.private

Inputs

str

an object

Outputs

to

an object

Definition

USING: combinators kernel math sequences ;

IN: xmode.marker.private

: matching-paren ( str -- to )
    0 swap [
        { { 40 [ 1 + ] } { 41 [ 1 - ] } [ drop ] } case
        dup zero?
    ] find drop nip ;