From 8321aa1e6ab734d09870b88a5533ff9fc3f57bb6 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sat, 12 Oct 2013 11:46:05 -0700
Subject: [PATCH] sequences.windowed: fixup stack effect for rolling-map.

---
 basis/sequences/windowed/windowed.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/basis/sequences/windowed/windowed.factor b/basis/sequences/windowed/windowed.factor
index 1cea80f01f..19458157d6 100644
--- a/basis/sequences/windowed/windowed.factor
+++ b/basis/sequences/windowed/windowed.factor
@@ -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