unless-negative ( ..a n quot: ( ..a n -- ..b ) -- ..b ) (original) (raw)

unless-negative ( ..a n quot: ( ..a n -- ..b ) -- ..b )

Vocabulary
math.combinators

Inputs

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

Outputs
None

Definition

USING: kernel ;

IN: math.combinators

: unless-negative ( ..a n quot: ( ..a n -- ..b ) -- ..b )
[ ] swap if-negative ; inline