map-until ( seq quot: ( elt -- ? elt' ) -- seq' ? )

Vocabulary

successor.private

Inputs

seq	an object
quot	a quotation with stack effect ( elt -- ? elt' )

Outputs

seq'	an object
?	an object

Definition

USING: kernel math sequences ;

IN: successor.private

: map-until ( seq quot: ( elt -- ? elt' ) -- seq' ? )
    [ t 0 pick length '[ 2dup _ < and ] ] dip
    '[ nip [ over _ change-nth ] keep 1 + ] while drop ; inline