if-negative ( ..a n true: ( ..a n -- ..b ) false: ( ..a n -- ..b ) -- ..b )

Vocabulary

math.combinators

Inputs

n	an object
true	a quotation with stack effect ( ..a n -- ..b )
false	a quotation with stack effect ( ..a n -- ..b )

Outputs

None

Definition

USING: kernel math ;

IN: math.combinators

: if-negative
    ( ..a n true: ( ..a n -- ..b ) false: ( ..a n -- ..b ) -- ..b )
    [ dup 0 < ] 2dip if ; inline