math: fix quot stack effect in unless-zero.

diff --git a/core/math/math.factor b/core/math/math.factor
index fa81ce3e2a0f78f70f189eb7fe24121038b1d498..4444b6daf0615a4a9d3c91bfc5b897e669e0aba3 100644 (file)
--- a/core/math/math.factor
+++ b/core/math/math.factor
@@ -87,7 +87,7 @@ GENERIC: neg? ( x -- -x )
 
 : when-zero ( ..a n quot: ( ..a -- ..b ) -- ..b ) [ ] if-zero ; inline
 
-: unless-zero ( ..a n quot: ( ..a -- ..b ) -- ..b ) [ ] swap if-zero ; inline
+: unless-zero ( ..a n quot: ( ..a n -- ..b ) -- ..b ) [ ] swap if-zero ; inline
 
 UNION: integer fixnum bignum ;