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