io.streams.byte-array.fast: don't need >c-ptr.

diff --git a/basis/io/streams/byte-array/fast/fast.factor b/basis/io/streams/byte-array/fast/fast.factor
index e231335bfdc67bcc3e36db2b7715b4040e1a1384..2948e2bc61dd2b0f1bc067f5e3df40414cb1d03a 100644 (file)
--- a/basis/io/streams/byte-array/fast/fast.factor
+++ b/basis/io/streams/byte-array/fast/fast.factor
@@ -8,8 +8,6 @@ IN: io.streams.byte-array.fast
 ! optimizing compiler has been loaded.
 
 M: byte-vector stream-write
-    [ dup byte-length tail-slice ]
-    [ [ [ byte-length ] bi@ + ] keep lengthen ]
-    [ drop byte-length ]
-    2tri
-    [ >c-ptr swap >c-ptr ] dip memcpy ;
+    [ dup byte-length tail-slice swap ]
+    [ [ [ byte-length ] bi@ + ] keep lengthen ] 2bi
+    dup byte-length memcpy ;