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


Vocabulary
math.combinators

Inputs
nan object
truea quotation with stack effect ( ..a n -- ..b )
falsea quotation with stack effect ( ..a n -- ..b )


Outputs
None

Definition


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