shuffle: clean up some shuffles

[factor.git] / core / io / streams / sequence / sequence.factor

diff --git a/core/io/streams/sequence/sequence.factor b/core/io/streams/sequence/sequence.factor
index ee46d1bcc63381ef7058acd96ce584a036729410..47faa129d378a123ecdfe7528ab90d36ab3692a9 100644 (file)
--- a/core/io/streams/sequence/sequence.factor
+++ b/core/io/streams/sequence/sequence.factor
@@ -24,7 +24,7 @@ SLOT: i
     [
         [ (sequence-read-length) ]
         [ [ dup pick + ] change-i underlying>> ] bi
-    ] dip [ -roll spin dupd + copy-loop drop ] 3curry keep ; inline
+    ] dip [ 4spin dupd + copy-loop drop ] 3curry keep ; inline
 
 : (sequence-read-unsafe) ( n buf stream -- count )
     [ integer>fixnum ]