]> gitweb.factorcode.org Git - factor.git/commitdiff
sequences.windowed: fixup stack effect for rolling-map.
authorJohn Benediktsson <mrjbq7@gmail.com>
Sat, 12 Oct 2013 18:46:05 +0000 (11:46 -0700)
committerJohn Benediktsson <mrjbq7@gmail.com>
Sat, 12 Oct 2013 18:46:05 +0000 (11:46 -0700)
basis/sequences/windowed/windowed.factor

index 1cea80f01f9c790d7c87d622f4a14ab1e165d6ab..19458157d65165b7f5a70ee254a9d903445d62fa 100644 (file)
@@ -24,7 +24,7 @@ M: windowed-sequence length
 : in-bounds ( a b sequence -- a' b' sequence )
     [ 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 [
         [ n [-] ] [ seq <slice-unsafe> ] bi quot call
     ] { } map-integers ; inline