group-start ( i raw -- n/f )

Vocabulary

xmode.marker.private

Inputs

i	an object
raw	an object

Outputs

n/f

an object

Definition

USING: combinators.short-circuit kernel math sequences ;

IN: xmode.marker.private

: group-start ( i raw -- n/f )
    [ 40 -rot index-from ] keep 2dup
    { [ drop ] [ [ 1 + ] dip ?nth 63 = ] } 2&&
    [ [ 1 + ] dip group-start ] [ drop ] if ;