(squish) ( seq quot: ( obj -- ? ) -- )

Vocabulary

sequences.squish

Inputs

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

Outputs

None

Definition

USING: kernel make sequences ;

IN: sequences.squish

: (squish) ( seq quot: ( obj -- ? ) -- )
    2dup call [ [ (squish) ] curry each ] [ drop , ] if ; inline
    recursive