From 62d79dd125f9022d5d1204e8d93d219efb1b4cf8 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Mon, 6 May 2013 08:45:29 -0700 Subject: [PATCH] math.combinators: adding unless-positive and unless-negative. --- extra/math/combinators/combinators.factor | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) 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