steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

locals-and-roots
John Benediktsson 2016-04-06 12:39:50 -07:00
parent f865273e4d
commit 5cfd5ff224
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
basis/io/streams/byte-array/fast/fast.factor
View File

@ -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 ;