steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

db4
Joe Groff 2010-05-13 14:30:19 -07:00
parent 8b9f33e040
commit 1196087991
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
core/math/math.factor
View File

@ -159,16 +159,16 @@ PRIVATE>
[ f ] if [ f ] if
] [ 3drop t ] if-iterate? ; inline recursive ] [ 3drop t ] if-iterate? ; inline recursive
: each-integer ( n quot -- ) : each-integer ( ... n quot: ( ... i -- ... ) -- ... )
iterate-prep (each-integer) ; inline iterate-prep (each-integer) ; inline
: times ( n quot -- ) : times ( ... n quot: ( ... -- ... ) -- ... )
[ drop ] prepose each-integer ; inline [ drop ] prepose each-integer ; inline
: find-integer ( n quot -- i ) : find-integer ( ... n quot: ( ... i -- ... ? ) -- ... i )
iterate-prep (find-integer) ; inline iterate-prep (find-integer) ; inline
: all-integers? ( n quot -- ? ) : all-integers? ( ... n quot: ( ... i -- ... ? ) -- ... ? )
iterate-prep (all-integers?) ; inline iterate-prep (all-integers?) ; inline
: find-last-integer ( ... n quot: ( ... i -- ... ? ) -- ... i ) : find-last-integer ( ... n quot: ( ... i -- ... ? ) -- ... i )