core: Add the shuffler words but without primitives.

[factor.git] / basis / sequences / windowed / windowed.factor

diff --git a/basis/sequences/windowed/windowed.factor b/basis/sequences/windowed/windowed.factor
index 19458157d65165b7f5a70ee254a9d903445d62fa..df2b05b58ce9e5499dafb092b87badae1f8dcf58 100644 (file)
--- a/basis/sequences/windowed/windowed.factor
+++ b/basis/sequences/windowed/windowed.factor
@@ -22,7 +22,7 @@ M: windowed-sequence length
     [ drop 0 ] [ length ] bi clamp ; inline
 
 : in-bounds ( a b sequence -- a' b' sequence )
-    [ nip in-bound ] [ [ nip ] dip in-bound ] [ 2nip ] 3tri ;
+    [ nip in-bound ] [ nipd in-bound ] [ 2nip ] 3tri ;
 
 :: rolling-map ( ... seq n quot: ( ... slice -- ... elt ) -- ... newseq )
     seq length [