each-until ( ... seq quot: ( ... elt -- ... ? ) -- ... )

Vocabulary

logic.private

Inputs

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

Outputs

None

Definition

USING: kernel sequences ;

IN: logic.private

: each-until ( ... seq quot: ( ... elt -- ... ? ) -- ... )
    find 2drop ; inline