math: fix stack effect declaration for the neg? generic

2016-07-28 20:41:02 +03:00 · 2016-07-28 20:41:02 +03:00 · 1cec145e46
parent 1aded9abdd
commit 1cec145e46
1 changed files with 1 additions and 1 deletions
--- 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