-find ( ... begin end quot: ( ... cursor -- ... ? ) -- ... cursor )

Vocabulary

cursors

Inputs

begin	an object
end	an object
quot	a quotation with stack effect ( ... cursor -- ... ? )

Outputs

cursor

an object

Definition

USING: kernel ;

IN: cursors

: -find
    ( ... begin end quot: ( ... cursor -- ... ? ) -- ... cursor )
    [ [ dup ] ] dip compose
    [ [ [ dup ] ] dip [ cursor>= [ t ] ] curry compose ] dip
    [ if ] curry compose [ inc-cursor ] until ; inline