slurp-heap-while-map ( heap quot1: ( value key -- slurp? ) quot2: ( value key -- obj/f ) -- seq )

Vocabulary

sequences.extras

Inputs

heap	an object
quot1	a quotation
quot2	a quotation

Outputs

seq	a sequence

Definition

USING: kernel ;

IN: sequences.extras

: slurp-heap-while-map
    ( heap quot1: ( value key -- slurp? ) quot2: ( value key -- obj/f ) -- seq )
    [ iterate-heap-while ] 3curry loop>array* ; inline