math: declare quotation stack effects on each-integer, times, find-integer, all-integers?

diff --git a/core/math/math.factor b/core/math/math.factor
index eb3966397e26f4b4947a975791f3aa1e0b2fefd0..bc7658feba439629e44aa846561f907db80bd75e 100644 (file)
--- a/core/math/math.factor
+++ b/core/math/math.factor
@@ -159,16 +159,16 @@ PRIVATE>
         [ f ] if
     ] [ 3drop t ] if-iterate? ; inline recursive
 
-: each-integer ( n quot -- )
+: each-integer ( ... n quot: ( ... i -- ... ) -- ... )
     iterate-prep (each-integer) ; inline
 
-: times ( n quot -- )
+: times ( ... n quot: ( ... -- ... ) -- ... )
     [ drop ] prepose each-integer ; inline
 
-: find-integer ( n quot -- i )
+: find-integer ( ... n quot: ( ... i -- ... ? ) -- ... i )
     iterate-prep (find-integer) ; inline
 
-: all-integers? ( n quot -- ? )
+: all-integers? ( ... n quot: ( ... i -- ... ? ) -- ... ? )
     iterate-prep (all-integers?) ; inline
 
 : find-last-integer ( ... n quot: ( ... i -- ... ? ) -- ... i )