diff --git a/extra/math/combinators/combinators.factor b/extra/math/combinators/combinators.factor index cc29c39e2c..bc00a3ac55 100644 --- a/extra/math/combinators/combinators.factor +++ b/extra/math/combinators/combinators.factor @@ -9,8 +9,14 @@ IN: math.combinators : if-positive ( ..a n true: ( ..a n -- ..b ) false: ( ..a n -- ..b ) -- ..b ) [ dup 0 > ] 2dip if ; inline -: when-negative ( ..a n true: ( ..a n -- ..b ) -- ..b ) +: when-negative ( ..a n quot: ( ..a n -- ..b ) -- ..b ) [ ] if-negative ; inline -: when-positive ( ..a n true: ( ..a n -- ..b ) -- ..b ) +: when-positive ( ..a n quot: ( ..a n -- ..b ) -- ..b ) [ ] if-positive ; inline + +: unless-negative ( ..a n quot: ( ..a n -- ..b ) -- ..b ) + [ ] swap if-negative ; inline + +: unless-positive ( ..a n quot: ( ..a n -- ..b ) -- ..b ) + [ ] swap if-positive ; inline