smart-plox ( true: ( ... -- x ) -- quot )

Vocabulary

combinators.extras

Inputs

true	a quotation with stack effect ( ... -- x )

Outputs

None

Word description

Applies the quotation if none of the values consumed by the quotation are f, otherwise puts fon the stack.

Definition

USING: combinators.smart generalizations kernel math ;

IN: combinators.extras

MACRO: smart-plox ( true: ( ... -- x ) -- quot )
    [ inputs [ 1 - [ and ] n*quot ] keep ] keep swap
    [ ndrop f ] curry [ smart-if ] 3curry ;