math: fix stack effect declaration for the neg? generic

diff --git a/core/math/math.factor b/core/math/math.factor
index b23e129946579b98699b27dd2a8de528529835e7..62aadea546232d24723b00b6cf45fdd06c2a2c43 100644 (file)
--- a/core/math/math.factor
+++ b/core/math/math.factor
@@ -147,7 +147,7 @@ ERROR: log2-expects-positive x ;
 : even? ( n -- ? ) 1 bitand zero? ; inline
 : odd? ( n -- ? ) 1 bitand 1 number= ; inline
 
-GENERIC: neg? ( x -- -x )
+GENERIC: neg? ( x -- ? )
 
 : if-zero ( ..a n quot1: ( ..a -- ..b ) quot2: ( ..a n -- ..b ) -- ..b )
     [ dup zero? ] [ [ drop ] prepose ] [ ] tri* if ; inline