core: Add the shuffler words but without primitives.

[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 8760299b331d4e861223df20b91c2f49775adfd9..5a6a1618ca3d3f621613f38de63bd5c6992aec07 100644 (file)
--- a/core/io/streams/sequence/sequence.factor
+++ b/core/io/streams/sequence/sequence.factor
@@ -41,7 +41,7 @@ ERROR: not-a-string obj ;
     [ integer>fixnum ]
     [ dup slice? [ [ seq>> ] [ from>> ] bi ] [ 0 ] if ]
     [
-        swap over stream-element-type +byte+ eq?
+        tuck stream-element-type +byte+ eq?
         [ check-byte-array sequence-copy-unsafe ]
         [ check-string sequence-copy-unsafe ] if
     ] tri* ; inline