core: Add the shuffler words but without primitives.

[factor.git] / basis / io / buffers / buffers.factor

diff --git a/basis/io/buffers/buffers.factor b/basis/io/buffers/buffers.factor
index fed9a480a3aa99fe6a9128f8efbf2e3f19c3c69d..72d7f4c474a778c78101f5fae0f571a3e2f1ef2c 100644 (file)
--- a/basis/io/buffers/buffers.factor
+++ b/basis/io/buffers/buffers.factor
@@ -56,7 +56,7 @@ TYPED: buffer-read-into ( dst n: fixnum buffer: buffer -- count )
         pick c-ptr? [
             memcpy
         ] [
-            -rot swap
+            spin
             [ swap alien-unsigned-1 ]
             [ set-nth-unsafe ] bi-curry*
             [ bi ] 2curry each-integer