-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 _ cursor>= [ t ] [ dup @ ] if ] [ inc-cursor ] until
    ; inline