nth-group-start ( n raw -- n )

Vocabulary

xmode.marker.private

Inputs

n	an object
raw	an object

Outputs

n

an object

Definition

USING: kernel math ;

IN: xmode.marker.private

: nth-group-start ( n raw -- n )
    [ -1 ] 2dip [ [ 1 + ] ] dip [ group-start ] curry compose
    [ [ dup ] ] dip [ when ] curry compose times ;