if-positive ( ..a n true: ( ..a n -- ..b ) false: ( ..a n -- ..b ) -- ..b ) (original) (raw)

if-positive ( ..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-positive
( ..a n true: ( ..a n -- ..b ) false: ( ..a n -- ..b ) -- ..b )
[ dup 0 > ] 2dip if ; inline