From 5cfd5ff2240946780c6c700cb6991bcef0e1b716 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Wed, 6 Apr 2016 12:39:50 -0700
Subject: [PATCH] io.streams.byte-array.fast: don't need >c-ptr.

---
 basis/io/streams/byte-array/fast/fast.factor | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/basis/io/streams/byte-array/fast/fast.factor b/basis/io/streams/byte-array/fast/fast.factor
index e231335bfd..2948e2bc61 100644
--- 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 ;