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

sequences.windowed: fixup stack effect for rolling-map.

db4
John Benediktsson 2013-10-12 11:46:05 -07:00
parent a82e916bcf
commit 8321aa1e6a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/sequences/windowed/windowed.factor
View File

@ -24,7 +24,7 @@ M: windowed-sequence length
: in-bounds ( a b sequence -- a' b' sequence ) : in-bounds ( a b sequence -- a' b' sequence )
[ nip in-bound ] [ [ nip ] dip in-bound ] [ 2nip ] 3tri ; [ nip in-bound ] [ [ nip ] dip in-bound ] [ 2nip ] 3tri ;
:: rolling-map ( seq n quot: ( slice -- elt ) -- newseq ) :: rolling-map ( ... seq n quot: ( ... slice -- ... elt ) -- ... newseq )
seq length [ seq length [
[ n [-] ] [ seq <slice-unsafe> ] bi quot call [ n [-] ] [ seq <slice-unsafe> ] bi quot call
] { } map-integers ; inline ] { } map-integers ; inline