From 1cec145e46525053bb323cc0fc988932c414f9ed Mon Sep 17 00:00:00 2001
From: Alexander Iljin <ajsoft@yandex.ru>
Date: Thu, 28 Jul 2016 20:41:02 +0300
Subject: [PATCH] math: fix stack effect declaration for the neg? generic

---
 core/math/math.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/core/math/math.factor b/core/math/math.factor
index b23e129946..62aadea546 100644
--- 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